inst/snippets/Figure3.1.R

# Now we'll do it 1000 times
Sampledist <- do(1000) * mean( ~ FTGradEnrollment, data = sample(StatisticsPhD, 10))
head(Sampledist, 3)
dotPlot( ~ mean, width = .005, data = Sampledist)
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.