# NOT RUN {
wildpop = simulate_admixture(
module = ancestry_module(number_of_founders = 10, morgan = 1),
pop_size = 1000,
total_runtime = 10)
ld_results <- calculate_ld(pop = wildpop,
markers = 10)
plot(ld_results$ld_matrix~ld_results$dist_matrix,
pch = 16,
xlab="Distance between markers",
ylab = "Linkage Disequilibrium")
# }
Run the code above in your browser using DataLab