fix memory leaks on EMGLLF, test OK for EMGrank

[valse.git] / R / modelSelection.R

diff --git a/R/modelSelection.R b/R/modelSelection.R
index bc7eeae..81e832a 100644 (file)
--- a/R/modelSelection.R
+++ b/R/modelSelection.R
@@ -28,7 +28,7 @@ modelSelection = function(LLF)
                        }
                        b = max(a)
                        #indices[i] : first indices of the binary vector where u_i ==1
-                       indices[i] = which.max(vec_bin(LLF,b)[[1]])
+                       indices[i] = which.max(LLF == b)
                }
        }