tests/testthat/test-compete-models.R

In nkurzaw/TPP2D: Detection of ligand-protein interactions from 2D thermal profiles (DLPTP)

## Tests for recomputeSignalFromRatios()
## library(TPP2D); library(testthat); source("setup-2dtpp-dataset.R"); source("test-compete-models.R")
context("compete models")

test_that("competeModels works as expected", {
  cm_df <- competeModels(simulated_cell_extract_df %>% 
                           filter(clustername == "tp1"))
  expect_identical(round(cm_df$F_statistic, -2), 100)
})

test_that("competeModels throws error", {
  expect_error(competeModels(simulated_cell_extract_df %>% 
                               dplyr::select(-log2_value)))
})