aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_f_time_norm.R
blob: f9aba58aba8641b5512173dcd91ff9f123c19eca (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
context("Time step normalisation")

test_that("Simple temperature and moisture normalisation works", {
  expect_equal(round(f_time_norm_focus(25, 20, 25), 2), 1.37)
})

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

Contact - Imprint