tests/testthat/test-demo.R

In MultiSEp: Predict Synthetic Lethality and Other Gene Dependency Relationships from Multiomics Data

# Converted from mts_tests() Demo mode. Quick subset run via mts_tests("Demo").

test_that("mts_mixModelCluster() returns a vector with the specified length", {
  multisepOutput <- mts_mixModelCluster(dataMatrix = depMapXPR_subset[1:2,], cores = cores)
  expect_length(multisepOutput, 2)
})

test_that("using a gene expression without log2 transformed values gives an output", {
  eDF_inverse <- 2^depMapXPR_subset
  expect_no_error(mts_mixModelCluster(dataMatrix = depMapXPR_subset[1:5,], cores = cores))
})