The R Project SVN R

Rev

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

Rev 40300 Rev 41609
Line 51... Line 51...
51 
          rstudent(roller.glm))
 51 
          rstudent(roller.glm))
52 
all.equal(cooks.distance(roller.lm),
 52 
all.equal(cooks.distance(roller.lm),
53 
          cooks.distance(roller.glm))
 53 
          cooks.distance(roller.glm))
54 
 
 54 
 
55 
 
 55 
 
56 
all.equal(summary(roller.lm0)$coef,
 56 
all.equal(summary(roller.lm0)$coefficients,
57 
          summary(roller.lm9)$coef, tol=1e-14)
 57 
          summary(roller.lm9)$coefficients, tol=1e-14)
58 
all.equal(print(anova(roller.lm0), signif.st=FALSE),
 58 
all.equal(print(anova(roller.lm0), signif.st=FALSE),
59 
                anova(roller.lm9), tol=1e-14)
 59 
                anova(roller.lm9), tol=1e-14)
60 
 
 60 
 
61 
 
 61 
 
62 
###  more regression tests for lm(), glm(), etc :
 62 
###  more regression tests for lm(), glm(), etc :
Line 72... Line 72...
72 
signif(dfbeta(lm.SR), 3)
 72 
signif(dfbeta(lm.SR), 3)
73 
covratio (lm.SR)
 73 
covratio (lm.SR)
74 
 
 74 
 
75 
## predict.lm(.)
 75 
## predict.lm(.)
76 
 
 76 
 
77 
all.equal(predict(roller.lm,                 se=TRUE)$se,
 77 
all.equal(predict(roller.lm,                 se.fit=TRUE)$se.fit,
78 
          predict(roller.lm, newdata=roller, se=TRUE)$se, tol= 1e-14)
 78 
          predict(roller.lm, newdata=roller, se.fit=TRUE)$se.fit, tol= 1e-14)