X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2Fmain.R;h=632d90ba6203aba80f57ca0719ff6a87cfd7ef0f;hp=0a3487b0cb430097425ddeb9f563df8dfc9febd0;hb=f7ac8e154ed78624db1a9992adb5576cae499989;hpb=43f9cdc196c73bf1074924d4921445d63e89a2f4

diff --git a/pkg/R/main.R b/pkg/R/main.R
index 0a3487b..632d90b 100644
--- a/pkg/R/main.R
+++ b/pkg/R/main.R
@@ -127,10 +127,19 @@ valse <- function(X, Y, procedure = "LassoMLE", selecMod = "DDSE", gamma = 1, mi
     print(tableauRecap)
   modSel <- capushe::capushe(tableauRecap, n)
   indModSel <- if (selecMod == "DDSE") 
-    as.numeric(modSel@DDSE@model) else if (selecMod == "Djump") 
-    as.numeric(modSel@Djump@model) else if (selecMod == "BIC") 
-    modSel@BIC_capushe$model else if (selecMod == "AIC") 
+  {
+    as.numeric(modSel@DDSE@model)
+  } else if (selecMod == "Djump") 
+  {
+    as.numeric(modSel@Djump@model)
+  } else if (selecMod == "BIC") 
+  {
+    modSel@BIC_capushe$model
+  } else if (selecMod == "AIC") 
+  {
     modSel@AIC_capushe$model
+  }
+    
 
   mod <- as.character(tableauRecap[indModSel, 1])
   listMod <- as.integer(unlist(strsplit(mod, "[.]")))