FirstBase.null <- do(1000) * mean(~ (narrow - wide), data = swap(FirstBase, c("narrow", "wide")))
head(FirstBase.null, 3)
histogram(~ result, data = FirstBase.null, width = 0.005, center = 0.0025)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.