# Asymmetric migration for two populations
model <- coal_model(c(25,25), 100) +
feat_migration(0.5, 1, 2) +
feat_migration(0.75, 2, 1)
# Symmetric Migration
model <- coal_model(c(25,25), 100) +
feat_migration(par_range('m', 0.1, 2), symmetric=TRUE)
Run the code above in your browser using DataLab