T.samples <- do(1000) * stat(t.test(~ sleepHrs, data = sample(Pop1, 48)))
head(T.samples, 3)
histogram(~ t, data = T.samples, width = 1, fit = "t")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.