tests/testthat/test_gppsat.R

context("GPPsat")
data("ec_dd")


# test_that("GPPsat", {
#         
#         lue_val <- gppsat(ec_dd$GPP, ec_dd$PPFD)
#         
#         expect_equal(round(min(lue_val), 6), -1e-06)
#         
#         
# })
dpabon/ecofunr documentation built on July 15, 2020, 12:58 p.m.