Update test_lambda_setup.R

rsetienne · Aug 31, 2023 · 5ee309c · 5ee309c
1 parent 835715f
commit 5ee309c
Showing 1 changed file with 0 additions and 19 deletions.
diff --git a/tests/testthat/test_lambda_setup.R b/tests/testthat/test_lambda_setup.R
@@ -35,25 +35,6 @@ test_that("lambda setup", {
   }
 })
 
-test_that("q_matrix", {
-  q_mat <- matrix(data = NA, nrow = 2, ncol = 2)
-  q_mat[1, 2] <- 1
-  q_mat[2, 1] <- 2
-
-  # first, we test on a 2x2 matrix
-  for (dd in c(TRUE, FALSE)) {
-    q1 <- secsse::q_doubletrans(traits = c(1, 2),
-                                masterBlock = q_mat,
-                                diff.conceal = dd)
-
-    q2 <- secsse::expand_q_matrix(q_matrix = q_mat,
-                                  num_concealed_states = 2,
-                                  diff.conceal = dd)
-    v1 <- as.vector(q1)
-    v2 <- as.vector(q2)
-    testthat::expect_true(all.equal(v1, v2))
-  }
-})
 
 test_that("setup", {
   focal_matrix <-