## Not run:
# x <- searchCrossOverDesign(s=9, p=5, v=4, model=4)
# plot(x)
# ## End(Not run)
x <- searchCrossOverDesign(s=9, p=5, v=4, model=4, n=c(50,10), jumps=c(10, 10))
plot(x, show.jumps=TRUE)
plot(x, type=2)
Run the code above in your browser using DataLab