Nothing
library(plantecophys)
context("FARAO")
f1 <- FARAO()
f2 <- FARAO(energybalance=TRUE)
f3 <- FARAO2()
f4 <- FARAO2(energybalance=TRUE)
f5 <- FARAO(C4=TRUE)
test_that("FARAO output", {
expect_named(f1)
expect_named(f2)
expect_named(f3)
expect_named(f4)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.