inst/snippets/Figure6.03.R

n10 <- do(2000) * rflip(10, .10)
dotPlot(~prop, width = .1, cex = 25, data = n10)

n25 <- do(2000) * rflip(25, .10)
dotPlot(~prop, width = .04, cex = 10, data = n25)

n200 <- do(2000) * rflip(200, .10)
dotPlot(~prop, width = .005, cex = 5, data = n200)
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.