powered by
SampDistMean(pop,max.samp.size=50,sim.reps=1000)
data(imagpop) if (require(manipulate)) SampDistMean(imagpop)
Run the code above in your browser using DataLab