Displaying 1 result from an estimated 1 matches for "glmer_fin".
2007 Jan 26
0
R crash with modified lmer code
...e)
if (cv$usePQL) {
.Call(glmer_PQL, GSpt)
PQLpars <- c(fixef(mer), .Call(mer_coef, mer, 2))
}
else {
PQLpars <- c(coef(glmFit), .Call(mer_coef, mer, 2))
}
if (method == "PQL") {
.Call(glmer_devLaplace, PQLpars, GSpt)
.Call(glmer_finalize, GSpt)
return(new("glmer", new("lmer", mer, frame = if (model) mf else
data.frame(),
terms = mt, call = match.call()), weights = weights,
family = family))
}
fixInd <- seq(ncol(X))
const <- c(rep(FALSE, length(fixInd)),
un...