tests/testthat/testtuzet.R

library(plantecophys)
context("Tuzet")


t1 <- PhotosynTuzet()


test_that("Tuzet model output", {
  expect_named(t1)
  expect_lt(t1$PSIL, 0)
  expect_gt(t1$GS, 0)
})

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.