tests/testthat/test-mse.InteractionClassification.R

In qvirus: Quantum Computing for Analyzing CD4 Lymphocytes and Antiretroviral Therapy

test_that("`mse.InteractionClassification()` works as expected", {
  set.seed(42)
  data(cd_3)
  cd_data <- cd_3[,-1]
  cd_result <- cds_diff(cd_data)
  data(vl_3)
  vl_data <- vl_3[,-1]
  vl_result <- vlogs_diff(vl_data)
  result <- InteractionClassification(cd_result = cd_result, vl_result = vl_result)
  expect_snapshot({
    mse(result)
  })
})