relax summation check strictness

pik-piam · Jun 27, 2024 · 8e5d2ff · 8e5d2ff
1 parent a69833a
commit 8e5d2ff
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/convGDX2MIF.R b/R/convGDX2MIF.R
@@ -151,18 +151,16 @@ convGDX2MIF <- function(gdx, gdx_ref = NULL, file = NULL, scenario = "default",
     sumChecks <- checkSummations(
       mifFile = output, dataDumpFile = NULL, outputDirectory = NULL,
       summationsFile = "extractVariableGroups",
-      absDiff = 1.5e-8, relDiff = 1e-8, roundDiff = TRUE
-    ) %>%
-      filter(abs(.data$diff) >= 1.5e-8),
+      absDiff = 0.01, relDiff = 0.02, roundDiff = TRUE
+    ),
     type = 'message') %>%
     .reportSummationErrors(testthat = testthat)
 
   capture.output(sumChecks <- checkSummations(
     mifFile = output, dataDumpFile = NULL, outputDirectory = NULL,
     summationsFile = system.file('extdata/additional_summation_checks.csv',
                                  package = 'remind2'),
-    absDiff = 1.5e-8, relDiff = 1e-8, roundDiff = TRUE) %>%
-      filter(abs(.data$diff) >= 1.5e-8) %>%
+    absDiff = 0.01, relDiff = 0.02, roundDiff = TRUE) %>%
       bind_rows(sumChecks),
     type = 'message'
   ) %>%