powered by
"simulate"(object, nsim = 1, seed = NULL, t, plot.series = TRUE)
model <- set.to.class("NHPP", parameter = list(xi = c(5, 1/2)), Lambda = function(t, xi) (t/xi[2])^xi[1]) t <- seq(0, 1, by = 0.01) data <- simulate(model, t = t)
Run the code above in your browser using DataLab