Time.null <- do(1000) * mean(~ estimate, data = sample(TimePopulation, 48))
head(Time.null, 3)
histogram(~ result, data = Time.null, groups = (result <= 6.29 | result >= 13.71), nint = 20, center = 10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.