test-simulate_data.R « testthat « tests - rsc.analysis - R package for evaluating the performance of RSC and the proposed extension.

summary refs log tree commit diff

path: root/tests/testthat/test-simulate_data.R

blob: 9d0cba37bd9ef2161f6bfc4994377a53e5a852d4 (plain)

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))
})