inst/snippets/Figure6.21b.R

Random.Smiles <- do(2000) * diff(mean(Leniency ~ shuffle(Group), data = Smiles))
head(Random.Smiles, 3)
histogram(~smile, n = 24,, fit = "normal", data = Random.Smiles)
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.