# NOT RUN {
data(datasim)
set.seed(0)
example_ZIP <- ZIP( Y = datasim$Ystar,
Covarmainphi = datasim[,c("intercept","X1")],
Covarmainmu = datasim[,c("intercept","X2")],
betaphi = c(-0.7,0.7), betamu = c(1,-0.5),
priorgamma = rep(1,1), propsigmaphi = c(0.05,0.05),
nmcmc = 100)
summary(example_ZIP)
# }
Run the code above in your browser using DataLab