powered by
writesample(n,N)
landingcube
# all samples of size 4 # from a population of size 10. w=writesample(4,10) # the samples are t(apply(w,1,function(x) (1:ncol(w))[x==1]))
Run the code above in your browser using DataLab