inst/tinytest/test_simulation.R

# test output
expect_true(is.double(rmvn(100, c(1, 2), matrix(c(1, 1, 1, 4), ncol = 2))))
expect_equal(class(rmvn(100, c(1, 2), matrix(c(1, 1, 1, 4), ncol = 2))), class(matrix()))


# test for correct error message
expect_error(rmvn(100, c(1, 2), matrix(c(1, 1, 1, 4, 1, 1), ncol = 2)), class = "invalid_dim_error")
lukehannan/lumisc documentation built on May 9, 2022, 12:59 p.m.