blob: 0681adc508d445db81cf6a859735714301a08866 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
context("Simple PEC sediment calculations")
test_that("PEC_sw_sed calculates correctly using the percentage method", {
# Application of 100 g/ha, 1 m spray drift distance (2.77% drift input), 50% in sediment,
# 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),
set_units(2.131, "µg/kg"))
})
|
