R/deviance.HOF.R

"deviance.HOF" <-
    function (object, model, ...) 
{
    out <- sapply(object$models, function(x) x$deviance)
    if (!missing(model))
        out <- out[model]
    out
}
jarioksa/gravy documentation built on May 24, 2024, 4:52 a.m.