tests/testthat/testleafenergybalance.R

library(plantecophys)
context("Leaf energy balance")


p0 <- PhotosynEB()

p0_1 <- PhotosynEB(RH=VPDtoRH(1.5, 2.5))

p1 <- PhotosynEB(Wind=0.2)
p2 <- PhotosynEB(VPD=4)


test_that("Leaf energy balance", {
  expect_gt(p1$Tleaf, p0$Tleaf)
  expect_gt(p2$Tleaf, p0$Tleaf)
})

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.