The R Project SVN R

Rev

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

Rev 61160 Rev 62492
Line 238... Line 238...
238 
summary(lm.D90)
 238 
summary(lm.D90)
239 
}
 239 
}
240 
opar <- par(mfrow = c(2,2), oma = c(0, 0, 1.1, 0))
 240 
opar <- par(mfrow = c(2,2), oma = c(0, 0, 1.1, 0))
241 
plot(lm.D9, las = 1)      # Residuals, Fitted, ...
 241 
plot(lm.D9, las = 1)      # Residuals, Fitted, ...
242 
par(opar)
 242 
par(opar)
243 
\testonly{
 243 
\dontshow{
244 
## model frame :
 244 
## model frame :
245 
stopifnot(identical(lm(weight ~ group, method = "model.frame"),
 245 
stopifnot(identical(lm(weight ~ group, method = "model.frame"),
246 
                    model.frame(lm.D9)))
 246 
                    model.frame(lm.D9)))
247 
}
 247 
}
248 
### less simple examples in "See Also" above
 248 
### less simple examples in "See Also" above