Construct a Williams design
WilliamsDesign(nbprod,seed=NULL)
nbprod
seed
Retrun the design
Francois Husson husson@agrocampus-rennes.fr
exemple1 <- WilliamsDesign(12)