# NOT RUN {
data("logd1k")
x <- logd1k$x
y <- logd1k$y
set.seed(42)
fs <- enspls.fs(x, y, reptimes = 5, maxcomp = 2)
print(fs, nvar = 10)
plot(fs, nvar = 10)
plot(fs, type = "boxplot", limits = c(0.05, 0.95), nvar = 10)
# }
Run the code above in your browser using DataLab