blob: 27b2eb7dd865670a01745f3fc4419fb576ab862c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
library(pfm)
context("Simple PEC soil calculations")
test_that("PEC_soil calculates correctly", {
# Application of 100 g/ha gives 0.133 mg/kg under default assumptions
expect_equal(PEC_soil(100), 0.1 * 4/3)
# or 0.1 mg/kg assuming 25% interception
expect_equal(PEC_soil(100, interception = 0.25), 0.1)
# Mixing depth of 1 cm gives five-fold PEC
expect_equal(PEC_soil(100, interception = 0.25, mixing_depth = 1), 0.5)
})
|
