# NOT RUN {
# n=c(100,10) is very small, but it's just an example and should not take much time
x <- searchCrossOverDesign(s=9, p=5, v=4, model=4, n=c(100,10))
getDesign(x)
getDesign("williams4t")
# }
Run the code above in your browser using DataLab