# Positive selection in population 2:
model <- coal_model(c(10, 13), 100) +
feat_pop_merge(par_range('tau', .1, 2), 2, 1) +
feat_selection(strength_AA=par_expr(2*s),
strength_Aa=par_range('s', 100, 2000),
population = 2,
time=par_expr(tau))
Run the code above in your browser using DataLab