add rep()

Author: wrathematics

R/rep.r

@@ -0,0 +1,31 @@
+#' rep
+#' 
+#' Replicate elements of a float vector/matrix.
+#' 
+#' @param x
+#' A float matrix.
+#' @param ...
+#' Additional arguments (passed to \code{base::rep}).
+#'  
+#' @return 
+#' A float vector.
+#' 
+#' @examples
+#' library(float)
+#' x = fl(matrix(1:6, 3, 2))
+#' 
+#' rep(x, 5)
+#' 
+#' @name rep
+#' @rdname rep
+NULL
+
+
+
+#' @rdname rep
+#' @export
+rep.float32 = function(x, ...)
+{
+  x_rep = rep(DATA(x), ...)
+  float32(x_rep)
+}

man/rep.Rd

@@ -0,0 +1,10 @@
+suppressPackageStartupMessages(library(float))
+
+tol = 1e-6
+
+x = matrix(1:6, 3, 2)
+s = fl(x)
+
+test = dbl(rep(s, 5))
+truth = rep(x, 5)
+stopifnot(all.equal(test, truth, tol=tol))