aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_PEC_sed.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2024-08-26 17:11:43 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2024-08-26 17:11:43 +0200
commit913c383880da2a5f4bdb71c8a82107afbad6ef13 (patch)
tree1c5a988748fc49fde4c279a96650deb26039b711 /tests/testthat/test_PEC_sed.R
parent9e62ed638e530a5cebebf491de055caca49a56ef (diff)
parent396ba6c42252426a132be56b9f417786a1f276e3 (diff)
Merge branch 'main' into crop_group
Diffstat (limited to 'tests/testthat/test_PEC_sed.R')
-rw-r--r--tests/testthat/test_PEC_sed.R4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/testthat/test_PEC_sed.R b/tests/testthat/test_PEC_sed.R
index 443f789..0681adc 100644
--- a/tests/testthat/test_PEC_sed.R
+++ b/tests/testthat/test_PEC_sed.R
@@ -5,5 +5,7 @@ test_that("PEC_sw_sed calculates correctly using the percentage method", {
# default assumptions of CRD spreadsheet (5 cm sediment depth, 1.3 kg/L sediment density)
# Reference value calculated with CRD spreadsheet
PEC_sw_100_1_m <- PEC_sw_drift(100, distances = 1)
- expect_equivalent(round(PEC_sw_sed(PEC_sw_100_1_m, percentage = 50), 3), 2.131)
+ expect_equivalent(
+ round(PEC_sw_sed(PEC_sw_100_1_m, percentage = 50), 3),
+ set_units(2.131, "µg/kg"))
})

Contact - Imprint