# Generate a Poisson Process on time interval [0,30] with intensity function
# intens= function(x) 100*x*exp(-8*x)
# using max.intens = 5
intens <- function(x) 100*x*exp(-8*x)
generatePP(intens, Time=30, max.intens=5)
Run the code above in your browser using DataLab