Displaying 1 result from an estimated 1 matches for "fixind".
Did you mean:
fixing
2007 Jan 26
0
R crash with modified lmer code
...) {
.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)),
unlist(lapply(mer at nc[seq(along = fl)],
function(k) 1:((k * (k + 1))/2) <= k)))
devLaplace <- function(pars) .Call(glmer_devLaplace, pars,
GSpt)
rel.tol <- abs(0.01/devLaplace(PQLpars))
if (cv$...