# NOT RUN {
## simulation
pars <- c(mu = 50.0, nu = 30.0, p = 1.5, c = 0.005)
z <- SimulateIP(pars, seed = 353)
## estimation
## need very long c.p.u time in the minimization procedure
# }
# NOT RUN {
init.pars <- c(mu = 55.0, nu = 35.0, p = 1.0, c = 0.01)
EstimateIP(z$offspring$xy, init.pars, skip = 100)
# }
Run the code above in your browser using DataLab