last bug fixed in tests. The automatic check of all test files seems OK

lbbe-software · Sep 25, 2024 · f3c7d31 · f3c7d31
1 parent 9815c99
commit f3c7d31
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/tests/testthat/testwithRNAseq.R b/tests/testthat/testwithRNAseq.R
@@ -54,16 +54,13 @@ test_that("Test DRomics on RNAseq data", {
   r <- bmdcalc(f)
 
   # various plot of fitted curves (without data)
-  curvesplot(r$res, xmax = max(f$omicdata$dose), 
+  curvesplot(r$res, xmax = max(r$omicdata$dose), 
              facetby = "model", colorby = "model")
 
-  curvesplot(r$res, xmax = max(f$omicdata$dose), 
+  curvesplot(r$res, xmax = max(r$omicdata$dose), 
              facetby = "typology")
   # plot of selection of curves
-  curvesplot(r$res[f$fitres$trend == "bell", ], xmax = max(f$omicdata$dose), 
-             facetby = "id")
-
-  curvesplot(r$res[f$fitres$trend == "U", ], xmax = max(f$omicdata$dose), 
+  curvesplot(r$res[r$res$trend == "bell", ], xmax = max(r$omicdata$dose), 
              facetby = "id")
 
   # evaluate the impact of preventsfitsoutofrange, enablesfequal0inGP, enablesfequal0inlGP