tests/testthat/testacic4.R
In RemkoDuursma/plantecophys: Modelling and Analysis of Leaf Gas Exchange Data
library(plantecophys)
context("ACi C4")
a1 <- AciC4(Ci=seq(100,1000,length=25))
a2 <- AciC4(Ci=seq(100,1000,length=25), Tleaf=-5)
test_that("Aci C4 output", {
expect_named(a1)
expect_lt(max(a1$ALEAF) - min(a1$ALEAF), 5)
expect_lt(max(a2$ALEAF), max(a1$ALEAF))
})
RemkoDuursma/plantecophys documentation built on April 6, 2021, 2:45 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(plantecophys)
context("ACi C4")
a1 <- AciC4(Ci=seq(100,1000,length=25))
a2 <- AciC4(Ci=seq(100,1000,length=25), Tleaf=-5)
test_that("Aci C4 output", {
expect_named(a1)
expect_lt(max(a1$ALEAF) - min(a1$ALEAF), 5)
expect_lt(max(a2$ALEAF), max(a1$ALEAF))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.