powered by
dm.simSumStats(dm, parameters, sum.stats = c("all"))
dm <- dm.createDemographicModel(c(25,25), 100) dm <- dm.addSpeciationEvent(dm,0.01,5) dm <- dm.addMutation(dm,1,20) dm.simSumStats(dm,c(1,10))
Run the code above in your browser using DataLab