pop <- simulate_admixture(
module = ancestry_module(number_of_founders = 10,
markers = 0.5),
pop_size = 1000,
total_runtime = 11)
require(ggplot2)
plot_over_time(frequencies = pop$frequencies,
focal_location = 0.5)
Run the code above in your browser using DataLab