pbd_sim_cpp(
pars,
parsf = c(function(t,pars) {pars[1]},function(t,pars) {pars[2]},
function(t,pars) {pars[3]},function(t,pars) {pars[4]}),
age,
soc = 2,
plotltt = 1,
methode = "lsoda"
)pars[1] corresponds to b (= la_1 in Etienne & Rosindell R2012) = speciation initiation rate
pars[2] corresponds to mu_1 (= mu_g in Etienne & Rosindell 2012) = extinction rate of good species
pars[3parsf[1] corresponds to time-dependence of b (= la_1 in Etienne & Rosindell R2012) = speciation initiation rate
papbd_simpbd_sim_cpp(pars = c(0.2,1,0.2,0.1),age = 15)Run the code above in your browser using DataLab