tests/testthat/test-bootstrap-null.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-bootstrap-null.R")
context("bootstrap null")

# test_that("bootstrapNull works as expected", {
#   boot_df <- bootstrapNull(simulated_cell_extract_df %>% 
#                              filter(clustername == "tp1"),
#                            B = 3)
#   expect_equal(nrow(boot_df), 3)
# })

test_that("bootstrapNullAlternativeModel works as expected", {
    
    sub_df <- simulated_cell_extract_df %>% 
        filter(clustername == "tp1")
    params_df <- getModelParamsDf(sub_df)
    boot_df <- bootstrapNullAlternativeModel(
        df = sub_df,
        params_df = params_df,
        B = 3)
    expect_equal(nrow(boot_df), 3)
})