## simulation
seeds <- c(822, 913, 905)
pa1 <- c(50, 30, 1.5, 0.005)
ty <- 1
z <- SimulateIP(seeds, pa1, ty)
## estimation
delta <- 0.001
x2 <- 0.3
pa2 <- c(0.5651715e+02, 0.2392856e+02, 0.1600531e+01, 0.5565606e-02)
pa <- matrix(c(pa1,pa2), 2, 4, byrow=TRUE)
PalmIP(z$offspring, pa, delta, ty, x2)
Run the code above in your browser using DataLab