powered by
nhpp.mean.event.times(rate, num.events, prob.func, max.time = 1000)
nhpp.event.times
nhpp.scenario
hpp.mean.event.times
intensity <- function(t) pmin(t/3, 1) rate <- 10 nhpp.mean.event.times(rate, 50, prob.func = intensity)
Run the code above in your browser using DataLab