R/plot.coef.plsRmodel.R

Defines functions plot.coef.plsRmodel

plot.coef.plsRmodel <- function(x,...)
{
  if(!is.null(x$Coeffs)){
    cat("Coefficients of the components\n")
    return(x$CoeffC)
    cat("Coefficients of the predictors (original scale)\n")
    return(x$Coeffs)
  }
  if(!is.null(x$Std.Coeffs)){
    cat("Coefficients of the components\n")
    return(x$CoeffC)
    cat("Coefficients of the predictors (scaled scale)\n")
    return(x$Std.Coeffs)
  }
}

Try the plsRglm package in your browser

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

plsRglm documentation built on March 31, 2023, 11:10 p.m.