Randomization.Temp <- do(10000) * (mean( ~ BodyTemp, data = resample(BodyTemp50)) + 0.34)
histogram( ~ mean, width = .025, fit = "normal", data = Randomization.Temp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.