diff options
Diffstat (limited to 'tests/testthat/test-simulate_data.R')
| -rw-r--r-- | tests/testthat/test-simulate_data.R | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/testthat/test-simulate_data.R b/tests/testthat/test-simulate_data.R new file mode 100644 index 0000000..9d0cba3 --- /dev/null +++ b/tests/testthat/test-simulate_data.R @@ -0,0 +1,4 @@ +test_that("Returns a true sparse correlation matrix", { + X_obj <- simulate_data(n = 10, p = 10, rho = 0) + expect_equal(X_obj$S, diag(nrow = 10)) +}) |