Added vectorizing capability and unit test

This commit is contained in:
Waldir Leoncio 2020-03-03 11:04:40 +01:00
parent 317d281e70
commit 2f6ad882a9
2 changed files with 14 additions and 1 deletions

View file

@ -99,4 +99,16 @@ test_that("reshape reshapes properly", {
expect_error(reshape(mx, c(1, 2, 3)))
expect_error(reshape(ra, c(1, 2, 3)))
expect_equal(reshape(ra, c(3, 2, 2)), array(ra, c(3, 2, 2)))
})
test_that("isfield works as on Matlab", {
S <- list()
S$x <- rnorm(100)
S$y <- sin(S$x)
S$title <- "y = sin(x)"
expect_true(isfield(S, "title"))
expect_equivalent(
object = isfield(S, c("x", "y", "z", "title", "error")),
expected = c(TRUE, TRUE, FALSE, TRUE, FALSE)
)
})