diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-19 12:23:08 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-12-19 12:23:08 +0100 |
| commit | e25f0194736a090914c10a9f374946c0b89adc5b (patch) | |
| tree | 505e4c8843dcf873b70f62b824062b19bc03d8b2 /tests/testthat/test_f_time_norm.R | |
| parent | 8de6e0c9df935266eccebbc9ff8ff2eef2e819d1 (diff) | |
Dimethenamid data, normalisation options
Diffstat (limited to 'tests/testthat/test_f_time_norm.R')
| -rw-r--r-- | tests/testthat/test_f_time_norm.R | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/testthat/test_f_time_norm.R b/tests/testthat/test_f_time_norm.R index f9aba58a..ca2ebd99 100644 --- a/tests/testthat/test_f_time_norm.R +++ b/tests/testthat/test_f_time_norm.R @@ -8,4 +8,13 @@ test_that("Time step normalisation for a dataset works", { expect_output(f_time_norm_focus(D24_2014, study_moisture_ref_source = "focus", f_na = 1), "was set to") expect_equal(round(D24_2014$f_time_norm, 3), c(1.606, 0.712, 0.716, 0.716, 0.898)) + expect_output(f_time_norm_focus(dimethenamid_2018), "was set to") + + # Reference values from Dimethenamid RAR 2018 Vol3 B.8 + expect_equal(round(dimethenamid_2018$f_time_norm, 3), + c(1, + rep(0.971, 2), # p. 56 + rep(round(1.329 * 0.924, 3), 2), # p. 51 + 0.623, 0.768, 0.673) # p. 45 + ) }) |