tests/testthat/test-summariseScreen.R

In lujunyan1118/DrugScreenExplorer_dev: A pipeline for processing drug sensitivity screen data

load("testData/expectedOutput/summarisedData.RData")

testSumData_average <- summariseScreen(screenSub, method = "average")
testSumData_AUC <- summariseScreen(screenSub, method = "AUC")
testSumData_AUC_corr <- summariseScreen(screenSub_edgeCorr, method = "AUC")
testSumData_IC50 <- summariseScreen(screenSub_edgeCorr, method = "IC50")
testFitRes1 <- sumIC50(normVal ~ concentration, tabDose1)
testFitRes2 <- sumIC50(normVal ~ concentration, tabDose2)

test_that("Summarise screen use averaged viability", {
  expect_equal(sumData_average, testSumData_average)
})

test_that("Summarise screen use trepazoidal AUC value", {
  expect_equal(sumData_AUC, testSumData_AUC)
})


test_that("Summarise screen use trepazoidal AUC value on edge corrected viabilities", {
  expect_equal(sumData_AUC_corr, testSumData_AUC_corr)
})


test_that("Summarise screen use IC50 fitting", {
  expect_equal(testSumData_IC50, sumData_IC50)
})


test_that("Test 1 for sumIC50 function", {
  expect_equal(testFitRes1, fitRes1)
})


test_that("Test 2 for sumIC50 function", {
  expect_equal(testFitRes2, fitRes2)
})