## simulation
seeds <- c(822, 913, 905)
pa1 <- c(50, 30, 0.3, 0.005, 0.1)
ty <- 1
z <- SimulateTypeA(seeds, pa1, ty, 100, 150)
## estimation
delta <- 0.001
x2 <- 0.3
pa2 <- c(0.5639245e+02, 0.2356894e+02, 0.3549922, 0.5203741e-02, 0.1070969)
pa <- matrix(c(pa1,pa2), 2, 5, byrow=TRUE)
PalmTypeA(z$offspring, pa, delta, ty, x2)
Run the code above in your browser using DataLab