data(Cornell)
# (Y,X) bootstrap of a PLSGLR model
set.seed(250)
modplsglm <- permcoefs.plsRglm.raw(Cornell[,-8],1:nrow(Cornell),nt=3,
modele="pls-glm-family",family=gaussian,maxcoefvalues=1e5,
ifbootfail=rep(0,3),verbose=FALSE)
Run the code above in your browser using DataLab