From 0478b9c425d668d6ef0aa0e860f8e4eac8ee78a0 Mon Sep 17 00:00:00 2001
From: Chris Sobczak <chris@sobczak.family>
Date: Fri, 10 Jul 2026 16:31:33 -0700
Subject: get going and create test for simulate_data

---
 tests/testthat/test-simulate_data.R | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 tests/testthat/test-simulate_data.R

(limited to 'tests/testthat/test-simulate_data.R')

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))
+})
-- 
cgit v1.2.3