swap.bike <- swap(JJvsBicycle, c("JJ", "bicycle"))
mean(~ (JJ - bicycle), data = swap.bike)
sd(~ (JJ - bicycle), data = swap.bike)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.