Nothing
context("tleaves() crossing")
library(tealeaves)
test_that("tleaves output has correct dimensions", {
cs <- make_constants()
lp <- make_leafpar()
ep <- make_enviropar(replace = list(
T_sky = set_units(c(298.15, 303.15), K)
))
tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE,
set_units = FALSE, parallel = FALSE)
n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
expect_equal(nrow(tl), n)
ep <- make_enviropar(replace = list(T_sky = function(pars) {pars$T_air}))
tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE,
set_units = FALSE, parallel = FALSE)
n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
expect_equal(nrow(tl), n)
cs <- make_constants()
lp <- make_leafpar()
ep <- make_enviropar(replace = list(
T_air = set_units(c(298.15, 303.15), K),
T_sky = function(pars) {pars$T_air}
))
tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE,
set_units = FALSE, parallel = FALSE)
n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
expect_equal(nrow(tl), n)
cs <- make_constants()
lp <- make_leafpar()
ep <- make_enviropar(
replace = list(
S_sw = set_units(c(300, 1000), "W/m^2"),
T_air = set_units(seq(273.15, 313.15, length.out = 3), "K")
)
)
tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE,
set_units = FALSE, parallel = FALSE)
n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
testthat::expect_equal(nrow(tl), n)
})
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.