Nothing
`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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.