two_populations <- simulate_admixture(
module = ancestry_module(),
migration = migration_settings(migration_rate = 0.01,
population_size = c(100, 100)))
FST <- calculate_fst(pop1 = two_populations$population_1,
pop2 = two_populations$population_2,
sampled_individuals = 10,
number_of_markers = 100,
random_markers = TRUE)
Run the code above in your browser using DataLab