Fix broken test.

lima1 · Mar 31, 2024 · daf175b · daf175b
1 parent 5169999
commit daf175b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)