set.seed(50)
n=100
if (FALSE) {
dat <- data.frame(y=rbinom(n, 1, 0.5)*rpois(n, 1.2), x1=runif(n), x2=runif(n), z=runif(n))
expnms = c("x1", "x2")
q = 4
qdata = quantize(dat, q=q, expnms=expnms)$data
f = y ~ x1 + x2 + z | 1
msmfit <- hurdlemsm_fit(f, qdata, intvals=(1:q)-1, expnms, main=TRUE,
degree=1, id=NULL, MCsize=10000, containmix=list(count=TRUE, zero=FALSE),
x=FALSE)
msmfit$msmfit
}
Run the code above in your browser using DataLab