tests/testthat/testfarao.R

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)
})

Try the plantecophys package in your browser

Any scripts or data that you put into this service are public.

plantecophys documentation built on April 1, 2021, 1:06 a.m.