The R Project SVN R

Rev

Rev 59039 | Rev 63619 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61160
Line 85... Line 85...
85 
fit0 <- lm(sr ~ 1, data = LifeCycleSavings)
 85 
fit0 <- lm(sr ~ 1, data = LifeCycleSavings)
86 
fit1 <- update(fit0, . ~ . + pop15)
 86 
fit1 <- update(fit0, . ~ . + pop15)
87 
fit2 <- update(fit1, . ~ . + pop75)
 87 
fit2 <- update(fit1, . ~ . + pop75)
88 
fit3 <- update(fit2, . ~ . + dpi)
 88 
fit3 <- update(fit2, . ~ . + dpi)
89 
fit4 <- update(fit3, . ~ . + ddpi)
 89 
fit4 <- update(fit3, . ~ . + ddpi)
90 
anova(fit0, fit1, fit2, fit3, fit4, test="F")
 90 
anova(fit0, fit1, fit2, fit3, fit4, test = "F")
91 
 
 91 
 
92 
anova(fit4, fit2, fit0, test="F") # unconventional order
 92 
anova(fit4, fit2, fit0, test = "F") # unconventional order
93 
}
 93 
}
94 
\keyword{regression}
 94 
\keyword{regression}
95 
\keyword{models}
 95 
\keyword{models}