# NOT RUN {
## load data
data(datasim)
set.seed(0)
example_ZIP_MErr <- ZIPMErr (Ystar = datasim$Ystar,
Covarmainphi = datasim[,c("intercept","X1")],
Covarmainmu = datasim[,c("intercept","X2")],
Covarplus = datasim[,c("intercept","Xplus")],
Covarminus = datasim[,c("intercept","Xminus")],
betaphi = c(0.7,-0.7), betamu = c(1,-1.5),
alphaplus = c(0,0), alphaminus=c(0,0),
priorgamma = c(0.001,0.001), priormu = c(0,0),
priorSigma = c(1,1), propsigmaphi = c(0.05,0.05),
nmcmc = 10)
summary(example_ZIP_MErr)
# }
Run the code above in your browser using DataLab