R/fitted.pcr.R

In analogue: Analogue and Weighted Averaging Methods for Palaeoecology

`fitted.pcr` <- function(object, comps = NULL, ...) {
    fits <- object$fitted.values
    nc <- NCOL(fits)
    if(is.null(comps))
        comps <- seq_len(nc)
    else {
        if(!is.numeric(comps))
            stop("Non-numeric selection of components requested.")
        if(min(comps) < 1 || max(comps) > nc)
            stop("Requested components outside range of actual components.")
    }
    fits <- fits[, comps]
    fits
}