library(readr)
library(dplyr)
library(stringr)
haplotype <- read_csv(
"https://web.stanford.edu/~hastie/CASI_files/DATA/haplotype.csv"
)
haplotype <- haplotype %>% rename(subject = X1)
devtools::use_data(haplotype)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.