tests/testthat/test_scalars.r

In BlueGrisGris/vpRm: R Package for VPRM, a model of NEE

test_that("does Tscalar() return correct values?", {
	expect_equal(Tscalar(Tair = 25, Tmin = 0, Tmax = 40),.85)
})#end test_that("does gen_templ() create a good template?", {

test_that("does Pscalar() return correct values?", {
	expect_equal(Pscalar(2,3,1), 0.5)
})#end test_that("does Tscalar() return correct values?", {

test_that("does Wscalar() return correct values?", {
	expect_equal(Wscalar(1,3) ,0.9)
})#end test_that("does Tscalar() return correct values?", {