## simulation
seeds <- c(822, 913, 905)
mu1 <- 5; nu1 <- 30; sig1 <- 0.01
mu2 <- 9; nu2 <- 150; sig2 <- 0.05
z <- SimulateTypeC(seeds, c(mu1,nu1,sig1), c(mu2,nu2,sig2), pmax=200, omax=300)
## Not run:
# ## estimation
# ## need long c.p.u time in the minimization procedure
# setOmpNumThreads(2)
# SimplexTypeC(z$offspring, c(mu1,nu1,sig1), c(mu2,nu2,sig2), process=3)
# ## End(Not run)
Run the code above in your browser using DataLab