Dolphin2.null <- do(1000) * diffprop(shuffle(response) ~ swimming, data = Dolphin2)
head(Dolphin2.null, 3)
dotPlot(~diffprop, data = Dolphin2.null, groups = (diffprop >=0.20),
width = 1/15, cex = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.