inst/snippets/Figure7.02.R

chisq.sample <- do(1000) *  chisq( ~ resample(toupper(letters[1:5]), 400))
histogram(~X.squared, data = chisq.sample)
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.