x <- matrix(rnorm(20),ncol=2)
y <- sample(0:1,10,TRUE)
## no bias reduction
glpls1a(x,y,br=FALSE)
## no bias reduction and 1 PLS component
glpls1a(x,y,K.prov=1,br=FALSE)
## bias reduction
glpls1a(x,y,br=TRUE)
Run the code above in your browser using DataLab