X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=R%2FmodelSelection.R;h=81e832aa3187ea3547aaf22a0ff9391d78a49ab9;hp=bc7eeaeda3d6732426dc8f6cfabb28e7b88711f2;hb=c3bc47052f3ccb659659c59a82e9a99ea842398d;hpb=e39bc178cf5de02489ea2dce3869ba6323e18492

diff --git a/R/modelSelection.R b/R/modelSelection.R
index bc7eeae..81e832a 100644
--- 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)
 		}
 	}