The R Project SVN R

Rev

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

Rev 61160 Rev 61168
Line 72... Line 72...
72 
utils::data(npk, package = "MASS")
 72 
utils::data(npk, package = "MASS")
73 
 
 73 
 
74 
op <- options(contrasts = c("contr.helmert", "contr.poly"))
 74 
op <- options(contrasts = c("contr.helmert", "contr.poly"))
75 
npk.aov <- aov(yield ~ block + N*P*K, npk)
 75 
npk.aov <- aov(yield ~ block + N*P*K, npk)
76 
alias(npk.aov)
 76 
alias(npk.aov)
77 
options(op)# reset
 77 
options(op)  # reset
78 
}
 78 
}
79 
\keyword{models}
 79 
\keyword{models}