ajout des commentaires Roxygen - anglicisme de certains noms de fonctions et de variables

[valse.git] / R / vec_bin.R

diff --git a/R/vec_bin.R b/R/vec_bin.R
new file mode 100644 (file)
index 0000000..01dbfe1
--- /dev/null
+++ b/R/vec_bin.R
@@ -0,0 +1,23 @@
+#' A function needed in initSmallEM
+#'
+#' @param X vector with integer values
+#' @param r integer
+#'
+#' @return a list with Z (a binary vector of size the size of X) and indices where Z is equal to 1
+vec_bin = function(X,r)
+{
+  Z = rep(0,length(X))
+  indice = c()
+  j = 1
+  for (i in 1:length(X))
+  {
+    if(X[i] == r)
+    {
+      Z[i] = 1
+      indice[j] = i
+      j=j+1
+    } else
+      Z[i] = 0
+  }
+  return (list(Z=Z,indice=indice))
+}
\ No newline at end of file