R/weights.manyglm.R

weights.manyglm <- function (object, type = c("prior", "working"), ...)
{
    type <- match.arg(type)
    res <- if (type == "prior")
        object$prior.weights
    else object$sqrt.weights
    res <- apply(res, 2, function(x) x^2)
    if (is.null(object$na.action))
        res
    else naresid(object$na.action, res)
}

Try the mvabund package in your browser

Any scripts or data that you put into this service are public.

mvabund documentation built on March 18, 2022, 7:25 p.m.