# \donttest{
data(Cornell)
set.seed(250)
modpls <- plsR(Y ~ ., data = Cornell, 3)
Cornell.bootYT <- bootpls(modpls, typeboot = "fmodel_np", R = 250, verbose = FALSE)
temp.ci <- confints.bootpls(Cornell.bootYT, indices = 2:8, typeBCa = FALSE)
confints2signifind(temp.ci)
# }
Run the code above in your browser using DataLab