data(eSetExample)
## One-way Anova
(design1<- new("designMatrix", target=pData(eSetExample), covariates = "Treatment"))
## Randomized block design
(design2<- new("designMatrix", target=pData(eSetExample),
covariates = c("Treatment", "Group")))
## Interaction design
(design3<- new("designMatrix", target=pData(eSetExample),
covariates = c("Treatment", "Group"), intIndex=c(1,2)))
Run the code above in your browser using DataLab