# NOT RUN {
n <- 400
mean.true <- rep(20, n)
Pi.true <- c(1/5, 4/5)
kappa.true <- 2
y <- r.mixlink.pois(n, mean.true, Pi.true, kappa.true)
mle.out <- mle.mixlink.pois(y, J = 2)
coef(mle.out)
print(mle.out)
confint(mle.out)
# }
Run the code above in your browser using DataLab