experiment1 <- read.csv('accident_2015.csv.bz2') %>% mutate(experiment = 1) devtools::use_data(experiment1)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.