# NOT RUN {
# download example data set and prepare it for analysis
snps <- eigenstrat(download_data(dirname = tempdir()))
# estimate the proportion of Neandertal ancestry in a French
# individual and other associated qpAdm statistics (see detailed
# description in the tutorial vignette)
result <- qpAdm(
target = "French",
sources = c("Vindija", "Yoruba"),
outgroups = c("Chimp", "Denisova", "Altai"),
data = snps
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab