Med.null <- do(1000) * diff(median(shuffle(time) ~ sleep, data = Sleep))
head(Med.null, 3)
histogram(~ unrestricted, data = Med.null,
groups = (unrestricted >= 12.05),
width = 3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.