# NOT RUN {
# download an example genomic data set and prepare it for analysis
snps <- eigenstrat(download_data(dirname = tempdir()))
# group individual samples into larger populations, creating a new
# EIGENSTRAT R object
new_snps <- relabel(
snps,
European = c("French", "Sardinian"),
African = c("Dinka", "Yoruba", "Mbuti", "Khomani_San"),
Archaic = c("Vindija", "Altai", "Denisova")
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab