inflammation <- read.csv("https://raw.githubusercontent.com/TIBHannover/FAIR-R/gh-pages/_episodes_rmd/inflammation.csv",
header = FALSE)
library(dplyr)
library(tidyr)
#head(inflamamtion)
inflammation <- inflammation %>%
tbl_df() %>%
mutate(PatientID = 1:n()) %>%
gather(Time, InflammationScore, -PatientID)
devtools::use_data(inflammation, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.