Displaying 1 result from an estimated 1 matches for "needupdate".
Did you mean:
need_update
2017 Mar 07
0
Potential clue for Bug 16975 - lme fixed sigma - inconsistent REML estimation
...gth of initialized \"varSum\" object")
}
start <- 0
for (i in seq_along(object)) {
if (plen[i] > 0) {
coef(object[[i]]) <- value[start + (1:plen[i])]
start <- start + plen[i]
}
}
}
object
}
formula.varSum <-
function(x, ...) lapply(x, formula)
needUpdate.varSum <-
function(object) any(unlist(lapply(object, needUpdate)))
print.varSum <-
function(x, ...)
{
cat("Sum of:\n")
lapply(x, print)
invisible(x)
}
print.summary.varSum <-
function(x, ...)
{
cat(attr(x, "structName"),"\n")
lapply(x, print, FALS...