## indirect usage via function lm.design is much more interesting
## cf help for lm design!
my.L18 <- oa.design(ID=L18,
factor.names = c("one","two","three","four","five","six","seven"),
nlevels=c(3,3,3,2,3,3,3))
y <- rnorm(18)
my.L18 <- add.response(my.L18, y)
formula(my.L18)
lm(my.L18)
Run the code above in your browser using DataLab