R/pls_svd.R

In hiroyukiyamamoto/loadings: Loadings for Principal Component Analysis and Partial Least Squares

Defines functions pls_svd

Documented in pls_svd

pls_svd <- function(X,Y){
  p <- ncol(Y)
  D <- diag(1, p)
  pls_svd <- pls_rog(X, Y, D, kappa = 0)
  return(pls_svd)
}