Smoke.null <- do(5000) * diffprop(shuffle(child) ~ parents, data = Smoking)
head(Smoke.null, 3)
dotPlot(~ diffprop, data = Smoke.null, cex = 25)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.