## A default set of birth death parameters
make.bd.params()
## Speciation is randomly picked between 1, 10 and 100
## and extinction is always 2
make.bd.params(speciation = c(1,10,100), extinction = 2)
## Speciation is a normal distribution(with sd = 0.75)
## and extinction is a lognormal distribution always lower than
## speciation (joint). Both are always positive values (absolute)
my_bd_params <- make.bd.params(speciation = rnorm,
speciation.args = list(sd = 0.75),
extinction = rlnorm,
joint = TRUE,
absolute = TRUE)
my_bd_params
## Visualising the distributions
plot(my_bd_params)
Run the code above in your browser using DataLab