# NOT RUN {
dataObj <- glmmSimData(seed=54321)
y <- dataObj$y
Xfixed <- dataObj$Xfixed
Xrandom <- dataObj$Xrandom
idNum <- dataObj$idNum
# }
# NOT RUN {
fitSimData <- glmmEP(y,Xfixed,Xrandom,idNum)
summary(fitSimData)
# }
Run the code above in your browser using DataLab