# NOT RUN {
wildpop = simulate_admixture(
module = ancestry_module(number_of_founders = 20, morgan = 1),
pop_size = 1000,
total_runtime = 10)
avg_frequencies <- calculate_marker_frequency(pop = wildpop,
location = 0.5)
frequencies <-
calculate_marker_frequency(pop = wildpop,
location = seq(0.4, 0.5, by = 0.01))
require(ggplot2)
ggplot(frequencies, aes(x = location, y = frequency, col = ancestor)) +
geom_step()
# }
Run the code above in your browser using DataLab