Fix test to handle NYD

MansMeg · Sep 10, 2023 · 186f265 · 186f265
1 parent 37734bd
commit 186f265
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/RPackage/tests/testthat/test-polls_data.R b/RPackage/tests/testthat/test-polls_data.R
@@ -20,8 +20,8 @@ test_that(desc="get_polls()",{
 
   # Test consistency
   incorrect_polls <- dat$PublYearMonth == "2012-jun" & dat$Company == "YouGov"
-  checkmate::expect_numeric(rowSums(dat[!incorrect_polls, 3:11], na.rm = TRUE), lower = 93.2, upper = 100, info = "Parties do not sum to 93.2 < x < 100")
-  checkmate::expect_numeric(rowSums(dat[1:100, 3:11], na.rm = TRUE), lower = 93.2, upper = 100, info = "Parties do not sum to 93.2 < x < 100")
+  checkmate::expect_numeric(rowSums(dat[!incorrect_polls, 3:11], na.rm = TRUE), lower = 89.7, upper = 100, info = "Parties do not sum to 89.7 < x < 100")
+  checkmate::expect_numeric(rowSums(dat[1:100, 3:11], na.rm = TRUE), lower = 89.7, upper = 100, info = "Parties do not sum to 89.7 < x < 100")
   checkmate::expect_integerish(dat$n, lower = 500)
 
   expect_true(all(dat$collectPeriodFrom <= dat$collectPeriodTo, na.rm = TRUE), info = "collectPeriodFrom > dat$collectPeriodTo")