R/fitted.HOF.R

"fitted.HOF" <-
    function (object, model, ...) 
{
    out <- sapply(object$models, function(x) x$fitted)
    if (!missing(model))
        out <- out[,model]
    out
}
jarioksa/gravy documentation built on May 18, 2019, 3:47 p.m.