# NOT RUN {
# This example takes one minute to run
# }
# NOT RUN {
data("logd1k")
x <- logd1k$x
y <- logd1k$y
set.seed(42)
cvfit <- cv.enspls(x, y, reptimes = 10)
print(cvfit)
plot(cvfit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab