The R Project SVN R

Rev

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

Rev 59039 Rev 61160
Line 57... Line 57...
57 
  \code{\link{se.contrast}}
 57 
  \code{\link{se.contrast}}
58 
}
 58 
}
59 
 
 59 
 
60 
\examples{\donttest{
 60 
\examples{\donttest{
61 
## From Venables and Ripley (2002) p.165.
 61 
## From Venables and Ripley (2002) p.165.
62 
utils::data(npk, package="MASS")
 62 
utils::data(npk, package = "MASS")
63 
 
 63 
 
64 
options(contrasts=c("contr.helmert", "contr.treatment"))
 64 
options(contrasts = c("contr.helmert", "contr.treatment"))
65 
npk.aov <- aov(yield ~ block + N*P*K, npk)
 65 
npk.aov <- aov(yield ~ block + N*P*K, npk)
66 
model.tables(npk.aov, "means", se = TRUE)
 66 
model.tables(npk.aov, "means", se = TRUE)
67 
 
 67 
 
68 
## as a test, not particularly sensible statistically
 68 
## as a test, not particularly sensible statistically
69 
npk.aovE <- aov(yield ~  N*P*K + Error(block), npk)
 69 
npk.aovE <- aov(yield ~  N*P*K + Error(block), npk)
70 
model.tables(npk.aovE, se=TRUE)
 70 
model.tables(npk.aovE, se = TRUE)
71 
model.tables(npk.aovE, "means")
 71 
model.tables(npk.aovE, "means")
72 
}}
 72 
}}
73 
\keyword{models}
 73 
\keyword{models}