From e25f0194736a090914c10a9f374946c0b89adc5b Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 19 Dec 2020 12:23:08 +0100 Subject: Dimethenamid data, normalisation options --- tests/testthat/test_f_time_norm.R | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'tests/testthat/test_f_time_norm.R') 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 + ) }) -- cgit v1.2.1