powered by
calcVIP(x, ncomp, ...)
plsr
library(pls) x <- matrix(rnorm(1000),nrow = 10,ncol = 100) y <- rep(0:1,5) res <- plsr(y~x) calcVIP(res,2)
Run the code above in your browser using DataLab