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)

Try the Lock5withR package in your browser

Any scripts or data that you put into this service are public.

Lock5withR documentation built on May 2, 2019, 3:43 p.m.