powered by
WilliamsDesign(nbprod,seed=NULL)
exemple1 <- WilliamsDesign(12)
Run the code above in your browser using DataLab