diff <- -diffmean(time ~ frame, data = BikeTimes) # note the negative sign
sd <- sd(~ diffmean, data = Bike.null)
diff - 2 * sd # lower limit of 95% CI
diff + 2 * sd # upper limit of 95% CI
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.