From 2d88af5fbee3d5f5e6b3e6ad0b47cc8835007bfd Mon Sep 17 00:00:00 2001
From: l-ramirez-lopez <ramirez.lopez.leo@gmail.com>
Date: Wed, 10 Feb 2016 11:47:52 +0100
Subject: [PATCH] method wapls2 is deprecated!

---
 R/mbl.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/mbl.R b/R/mbl.R
index 14e3f4b..5dc66fb 100644
--- a/R/mbl.R
+++ b/R/mbl.R
@@ -1523,8 +1523,7 @@ plsCv <- function(x, y, ncomp,
       mrspi[,jj]<- idxs[!idxs %in% strs]
       
     }
-  }else
-  {
+  }else{
     ygr <- data.frame(y, grp = as.factor(as.character(group)), order.orig = 1:length(y))
     lvls <- levels(ygr$grp)
     nlv <- nlevels(ygr$grp)