diff --git a/tests/testthat/test_adjustLogRatio.R b/tests/testthat/test_adjustLogRatio.R index c8e6062..8c76a0c 100644 --- a/tests/testthat/test_adjustLogRatio.R +++ b/tests/testthat/test_adjustLogRatio.R @@ -8,6 +8,7 @@ test_that("Function returns expected values for example coverage", { log.ratio.adjusted <- adjustLogRatio(log.ratio, purity, ploidy) total.ploidy <- 1.73 p <- 1 + log.ratio.offset <- 0 opt.C <- (2^(log.ratio.adjusted + log.ratio.offset) * total.ploidy)/p - ((2 * (1 - p))/p) expect_lt(abs(min(log.ratio.adjusted, na.rm=TRUE) - log2(0.004)), 0.001) expect_lt(median(abs(opt.C - purecn.example.output$results[[1]]$seg$C)), 0.1)