model <- coal_model(5, 10, 100) + feat_mutation(1) + sumstat_sfs()
simulate(model)
model <- coal_model(c(2, 2), 1, 10) +
feat_recombination(1) +
feat_migration(0.5, symmetric = TRUE) +
sumstat_trees()
simulate(model)
Run the code above in your browser using DataLab