require(tidyr) JJvsBicycle2 <- JJvsBicycle %>% gather(key=exercise, value=heartrate, JJ:bicycle) sample(JJvsBicycle2, 5)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.