aboutsummaryrefslogblamecommitdiff
path: root/pkg/tests/testthat/test_PEC_sed.R
blob: 443f789367f3ca79b7dd8843279dedb6ae0e96db (plain) (tree)
1
2
3
4
5
6
7
8
9





                                                                                           
                                                    

                                                                                 
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), 2.131)
})

Contact - Imprint