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)
#
#
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.