design <- t(rbind(c(1,1,2,2),
c(2,2,1,1),
c(1,1,2,2),
c(2,2,1,1),
c(1,2,2,1),
c(2,1,1,2)))
new("CrossoverDesign", design)
Run the code above in your browser using DataLab