Displaying 1 result from an estimated 1 matches for "gspt".
Did you mean:
gpt
2007 Jan 26
0
R crash with modified lmer code
...LMEoptimize<-")
doLMEopt <- quote(LMEopt(x = mer, value = cv))
if (family$family %in% c("binomial", "poisson"))
mer at devComp[8] <- -1
mer at status["glmm"] <- as.integer(switch(method, PQL = 1,
Laplace = 2, AGQ = 3))
GSpt <- .Call(glmer_init, environment(), fltype)
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(gl...