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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.