Nothing
x.bar <- mean(~Time, data = CommuteAtlanta); x.bar
SE <- sd( ~ mean, data = Bootstrap ); SE # standard error
MoE <- 2 * SE; MoE # margin of error for 95% CI
x.bar - MoE # lower limit of 95% CI
x.bar + MoE # upper limit of 95% CI
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.