# NOT RUN {
## simulation
pars <- c(mu = 50.0, nu = 30.0, a = 0.3, sigma1 = 0.005, sigma2 = 0.1)
z <- SimulateTypeA(pars, seed = 575)
## estimation
## need very long c.p.u time in the minimization procedure
# }
# NOT RUN {
init.pars <- c(mu = 60.0, nu = 40.0, a = 0.5, sigma1 = 0.01, sigma2 = 0.1)
EstimateTypeA(z$offspring$xy, init.pars, skip = 100)
# }
Run the code above in your browser using DataLab