Translated ind2subv() (#3)

R/ind2subv.R

@@ -1,38 +1,37 @@
-ind2subv <- function(siz, ndx) stop("Needs translation")
+ind2subv <- function(siz, ndx) {
-# function sub = ind2subv(siz, ndx)
+  #  IND2SUBV Like the built - in ind2sub, but returns the answer as a row vector.
-# % IND2SUBV Like the built-in ind2sub, but returns the answer as a row vector.
+  #  sub <- ind2subv(siz, ndx)
-# % sub = ind2subv(siz, ndx)
+  #  siz and ndx can be row or column vectors.
-# %
+  #  sub will be of size length(ndx) * length(siz).
-# % siz and ndx can be row or column vectors.
+  #  Example
-# % sub will be of size length(ndx) * length(siz).
+  #  ind2subv([2 2 2], 1:8) returns
-# %
+  #   [1 1 1
-# % Example
+  #    2 1 1
-# % ind2subv([2 2 2], 1:8) returns
+  #     ...
-# %  [1 1 1
+  #    2 2 2]
-# %   2 1 1
+  #  That is, the leftmost digit toggle fastest.
-# %   ...
+  #
-# %   2 2 2]
+  #  See also SUBV2IND
-# % That is, the leftmost digit toggle fastest.
-# %
-# % See also SUBV2IND
 
-# n = length(siz);
+  n <- length(siz)
 
-# if n==0
+  if (n == 0) {
-#   sub = ndx;
+    sub <- ndx
-#   return;
+    return(sub)
-# end
+  }
 
-# if all(siz==2)
+  if (all(siz == 2)) {
-#   sub = dec2bitv(ndx-1, n);
+    sub <- dec2bitv(ndx - 1, n)
-#   sub = sub(:,n:-1:1)+1;
+    sub <- sub[, seq(n, 1, - 1)] + 1
-#   return;
+    return(sub)
-# end
+  }
 
-# cp = [1 cumprod(siz(:)')];
+  cp <- c(1, cumprod(t(siz[])))
-# ndx = ndx(:) - 1;
+  ndx <- ndx[] - 1
-# sub = zeros(length(ndx), n);
+  sub <- zeros(length(ndx), n)
-# for i = n:-1:1 % i'th digit
+  for (i in seq(n, 1, -1)) {# i'th digit
-#   sub(:,i) = floor(ndx/cp(i))+1;
+    sub[, i] <- floor(ndx / cp[i]) + 1
-#   ndx = rem(ndx,cp(i));
+    ndx <- ndx %% cp(i)
-# end
+  }
+  return(sub)
+}