Yawn3.null <-
do(1000) * diffprop(shuffle(response) ~ yawnSeed, level = "Yawn", data = Yawning3)
head(Yawn3.null, 3)
dotPlot(~diffprop, data = Yawn3.null, groups = (diffprop >= 0.0441), cex = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.