# NOT RUN {
# download an example genomic data set and prepare it for analysis
snps <- eigenstrat(download_data(dirname = tempdir()))
# define a set of populations to analyze
pops <- c("French", "Sardinian", "Han", "Papuan", "Dinka")
result_f4ratio <- f4ratio(
X = pops, A = "Altai", B = "Vindija", C = "Yoruba", O = "Chimp",
data = snps
)
result_d <- d(
W = pops, X = "Yoruba", Y = "Vindija", Z = "Chimp",
data = snps
)
result_f4 <- f4(
W = pops, X = "Yoruba", Y = "Vindija", Z = "Chimp",
data = snps
)
result_f3 <- f3(
A = pops, B = "Mbuti", C = "Khomani_San",
data = snps
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab