# NOT RUN {
# under a uniform model
model <- convertPars(pars=NULL, years=5000:6000,type='uniform')
sims <- simulateCalendarDates(model, 1000)
range(sims)
# simulate under an exponential model
model <- convertPars(pars=0.001, years=5000:6000,type='exp')
sims <- simulateCalendarDates(model, 1000)
range(sims)
# under a CPL model
model <- convertPars(pars=runif(5), years=5000:6000,type='CPL')
sims <- simulateCalendarDates(model, 1000)
range(sims)
# }
Run the code above in your browser using DataLab