## simulation
seeds <- c(822, 913, 905)
mu1 <- 5; nu1 <- 30; sig1 <- 0.01
mu2 <- 9; nu2 <- 150; sig2 <- 0.05
ty <- 1
z <- SimulateTypeC(seeds, c(mu1,nu1,sig1), c(mu2,nu2,sig2), ty, 200, 300)
## estimation
delta <- 0.001
pa1 <- c(1500, 30, 0.1, 0.01, 0.05)
pa2 <- c(0.1281e+04, 0.43134e+02, 0.30049, 0.14926e-01, 0.51719e-01)
pa <- matrix(c(pa1,pa2), 2, 5, byrow=TRUE)
PalmTypeC(z$offspring, pa, delta, ty)
Run the code above in your browser using DataLab