powered by
nhpp.scenario(rate, num.events, prob.func, num.sims = 100, t0 = 0, t1 = NULL, num.points = 100, quantiles = c(0.025, 0.975), ...)
hpp.scenario
PoissonProcessScenario
intensity <- function(t) pmin(t/3, 1) rate <- 10 num.events <- 100 scen = nhpp.scenario(rate, num.events, num.sims = 100, prob.func=intensity) scen@x.bar plot(scen, main='My NHPP Scenario')
Run the code above in your browser using DataLab