tests/testthat/test001.R

In anadiedrichs/frost: Prediction of Minimum Temperature for Frost Forecasting in Agriculture

context("dew point calculation")
library(frost)
rh <- 54
temp <- 25
test_that("Testing dew point calculation with modes A, B, C ", {
  expect_equal(calcDewPoint(rh,temp,mode="A"),14.99222, tolerance = .01 )
  expect_equal(calcDewPoint(rh,temp,mode="B"),24.07111, tolerance = .01 )
  expect_equal(calcDewPoint(rh,temp,mode="C"),15.04884, tolerance = .01 )
  expect_equal(calcDewPoint(24,temp,mode="A"),2.94, tolerance = .01 )
  expect_equal(calcDewPoint(24,temp,mode="B"),7.5, tolerance = .01 )
})