data-raw/human-ancestry.R

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)
davechilders/casi documentation built on May 28, 2019, 7:52 p.m.