# NOT RUN {
data("logd1k")
x <- logd1k$x
y <- logd1k$y
set.seed(42)
od <- enspls.od(
x, y,
reptimes = 5, maxcomp = 3,
alpha = c(0.3, 0.6, 0.9)
)
plot(od, prob = 0.1)
plot(od, criterion = "sd", sdtimes = 1)
# }
Run the code above in your browser using DataLab