## Draw 200 samples of size 20 using simple random sampling
sscsample(20,200)
## Draw 200 samples of size 20 using simple random sampling and store the
## results. Extract the means of all 200 samples, and the 50th sample
res<-sscsample(20,200,ret=TRUE)
res$means
res$samples[,50]Run the code above in your browser using DataLab