library(pls)
data(yarn)
pls <- mvr(density ~ NIR,
ncomp = 5,
data = yarn,
validation = "CV",
method = "oscorespls",
jackknife = TRUE)
res <- get_coef(pls)
head(res)
Run the code above in your browser using DataLab