## simulation
seeds <- c(822, 913, 905)
pa1 <- c(50, 30, 0.03)
ty <- 1
z <- SimulateThomas(seeds, pa1, ty)
## estimation
delta <- 0.001
pa2 <- c(0.51311e+02, 0.26104e+02, 0.29071e-01)
pa <- matrix(c(pa1,pa2), 2, 3, byrow=TRUE)
PalmThomas(z$offspring, pa, delta, ty)
Run the code above in your browser using DataLab