changed tests to reflect that duration between two thresholds now excludes the upper threshold

Author: JZauner

tests/testthat/test-metric_duration_above_threshold.R

@@ -12,7 +12,7 @@ test_that("Calculation works", {
     duration_above_threshold(MEDI, datetime, "below", 100), lubridate::dminutes(7)
   )
   expect_equal(
-    duration_above_threshold(MEDI, datetime, threshold = c(0,99)), lubridate::dminutes(5)
+    duration_above_threshold(MEDI, datetime, threshold = c(0,99)), lubridate::dminutes(4)
   )
 })
 

tests/testthat/test-metric_period_above_threshold.R

@@ -9,7 +9,7 @@ test_that("Calculation works", {
     period_above_threshold(MEDI, datetime, "below", 10), lubridate::dminutes(5)
   )
   expect_equal(
-    period_above_threshold(MEDI, datetime, threshold = c(12,13)), lubridate::dminutes(2)
+    period_above_threshold(MEDI, datetime, threshold = c(12,13)), lubridate::dminutes(1)
   )
   expect_equal(
     period_above_threshold(MEDI, datetime, threshold = 10, loop = TRUE), lubridate::dminutes(7)

tests/testthat/test-metric_pulses_above_threshold.R

@@ -53,12 +53,12 @@ test_that("calculation works", {
     pulses_above_threshold(MEDI,Time,"above",c(10,30),"1 mins", "1 mins", 0, as.df = TRUE),
     tibble::tibble(
       "n_pulses_within_10-30" = 1,
-      "mean_level_pulses_within_10-30" = 20,
-      "mean_duration_pulses_within_10-30" = lubridate::dminutes(3),
-      "total_duration_pulses_within_10-30" = lubridate::dminutes(3),
+      "mean_level_pulses_within_10-30" = 15,
+      "mean_duration_pulses_within_10-30" = lubridate::dminutes(2),
+      "total_duration_pulses_within_10-30" = lubridate::dminutes(2),
       "mean_onset_pulses_within_10-30" = lubridate::dminutes(1),
-      "mean_midpoint_pulses_within_10-30" = lubridate::dminutes(2),
-      "mean_offset_pulses_within_10-30" = lubridate::dminutes(3),
+      "mean_midpoint_pulses_within_10-30" = lubridate::dminutes(1.5),
+      "mean_offset_pulses_within_10-30" = lubridate::dminutes(2),
     )
   )
 })

tests/testthat/test-metric_timing_above_threshold.R

@@ -20,9 +20,9 @@ test_that("Calculation works", {
   expect_equal(
     timing_above_threshold(MEDI, Datetime, threshold = c(250, 500)), 
     list(
-      "mean" = lubridate::as_datetime(lubridate::dhours(10), tz = "UTC"),
+      "mean" = lubridate::as_datetime(lubridate::dhours(7.5), tz = "UTC"),
       "first" = lubridate::as_datetime(lubridate::dhours(6), tz = "UTC"),
-      "last" = lubridate::as_datetime(lubridate::dhours(14), tz = "UTC")
+      "last" = lubridate::as_datetime(lubridate::dhours(9), tz = "UTC")
     )
   )
 })