Added support for 3D arrays

2020-02-25 14:28:54 +01:00 · 2020-02-25 14:28:54 +01:00 · a4143ba786
commit a4143ba786
parent 37822b2ec8
2 changed files with 12 additions and 4 deletions
--- a/tests/testthat/test-convertedBaseFunctions.R
+++ b/tests/testthat/test-convertedBaseFunctions.R
@ -28,6 +28,10 @@ test_that("repmat works properly", {
        object = repmat(mx2, c(4, 1)),
        expected = rbind(mx2, mx2, mx2, mx2)
    )
+    expect_equal(
+        object = repmat(mx2, c(1, 1, 2)),
+        expected = array(mx2, c(2, 2, 2))
+    )
 })

 test_that("zeros and ones work as expected", {