# NOT RUN {
snps <- eigenstrat(download_data(dirname = tempdir()))
present_count <- count_snps(snps)
missing_count <- count_snps(snps, missing = TRUE)
present_proportion <- count_snps(snps, prop = TRUE)
missing_proportion <- count_snps(snps, missing = TRUE, prop = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab