test <- PLS_glm(y,X,p,modele="pls-glm-logistic", alpha.pvals.expli = 0.05, sparse=TRUE, sparseStop=TRUE)
****____________________________**
Family: binomial
Link function: logit
_component_ 1 __
_component_ 2 __
_component_ 3 __
No more significant predictors (<0.05) found
Warning only 3 components were thus extracted
_Predicting X without NA neither in X nor in Y_
***____________________________****
*how do I suppress the output that follows PLS_glm function call?*