## simulation
seeds <- c(822, 913, 905)
mu1 <- 10; mu2 <- 40; nu <- 30; sig1 <- 0.01; sig2 <- 0.03
ty <- 1
z <- SimulateTypeB(seeds, c(mu1,mu2,nu,sig1,sig2 ), ty, 100, 150)
## estimation
delta <- 0.001
pa1 <- c(50, 30, 0.2, 0.01, 0.03)
pa2 <- c(0.44100e+02, 0.30691e+02, 0.15119, 0.94494e-02, 0.26822e-01)
pa <- matrix(c(pa1,pa2), 2, 5, byrow=TRUE)
PalmTypeB(z$offspring, pa, delta, ty)
Run the code above in your browser using DataLab