diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-19 14:27:03 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-19 14:31:21 +0100 |
| commit | 17755babc3a517f4c7cec1c04e3e1f32b7ffb5d9 (patch) | |
| tree | 11643c6caf48c57c037cc1c9d0d79092446cf14a /tests/testthat | |
| parent | 138638976f792684483520fe7837ded0a27938e4 (diff) | |
Add another test for Exposit drainage
to test overriding the mobility group derived from Koc
Diffstat (limited to 'tests/testthat')
| -rw-r--r-- | tests/testthat/test_exposit.R | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/testthat/test_exposit.R b/tests/testthat/test_exposit.R index f6a2de4..13371a6 100644 --- a/tests/testthat/test_exposit.R +++ b/tests/testthat/test_exposit.R @@ -72,4 +72,12 @@ test_that("Drainage PECsw are as in Exposit 3.02", { res_3 <- PEC_sw_exposit_drainage(200, Koc = 30, DT50 = 100) res_pfm_3 <- round(res_3$PEC_sw_drainage, 2) expect_equivalent(res_exposit_3, res_pfm_3) + + # 1000 g/ha, Koc = 545 L/kg, group = 1, DT50 = 20 days, 25% interception + res_exposit_4 <- c(spring = 0.11, autumn = 0.32) + + res_4 <- PEC_sw_exposit_drainage(1000, interception = 0.25, Koc = 545, DT50 = + 20, mobility = "low") + res_pfm_4 <- round(res_4$PEC_sw_drainage, 2) + expect_equivalent(res_exposit_4, res_pfm_4) }) |