Randomization.Temp <-
do(10000) * ( mean( ~ BodyTemp, data = resample(BodyTemp50) ) + 0.34 )
head(Randomization.Temp, 3)
mean( ~ result, data = Randomization.Temp )
cdata( ~ result, 0.95, data = Randomization.Temp )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.