# A model with a constant mutation rate of 5:
model <- coal_model(10, 1) + feat_mutation(rate = 5)
# A model with a mutation rate that can be estimated with Jaatha:
model <- coal_model(c(15,20), 100) +
feat_mutation(par_range('theta', 1, 20))
Run the code above in your browser using DataLab