Nothing
library(medfate)
data(exampleforest)
data(SpParamsMED)
control_granier <- defaultControl("Granier")
control_granier$verbose <- FALSE
control_sperry <- defaultControl("Sperry")
control_sperry$verbose <- FALSE
control_sureau <- defaultControl("Sureau")
control_sureau$verbose <- FALSE
#Define soil with default soil params (4 layers)
examplesoil <- defaultSoilParams(4)
test_that("pressure-volume curves can be shown",{
x1 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_granier)
expect_s3_class(moisture_pressureVolumeCurvePlot(x1, "stem"), "ggplot")
x2 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_sperry)
expect_s3_class(moisture_pressureVolumeCurvePlot(x2, "stem"), "ggplot")
expect_s3_class(moisture_pressureVolumeCurvePlot(x2, "leaf"), "ggplot")
x3 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_sureau)
expect_s3_class(moisture_pressureVolumeCurvePlot(x3, "stem"), "ggplot")
expect_s3_class(moisture_pressureVolumeCurvePlot(x3, "leaf"), "ggplot")
})
test_that("hydraulic vulnerability curves can be shown",{
x2 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_sperry)
expect_s3_class(hydraulics_vulnerabilityCurvePlot(x2, type = "leaf"), "ggplot")
expect_s3_class(hydraulics_vulnerabilityCurvePlot(x2, type = "stem"), "ggplot")
expect_s3_class(hydraulics_vulnerabilityCurvePlot(x2, type = "root"), "ggplot")
expect_null(hydraulics_vulnerabilityCurvePlot(x2, soil = examplesoil, type = "rhizosphere"))
x3 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_sureau)
expect_s3_class(hydraulics_vulnerabilityCurvePlot(x3, type = "leaf", vulnerabilityFunction = "Sigmoid"), "ggplot")
expect_s3_class(hydraulics_vulnerabilityCurvePlot(x3, type = "stem", vulnerabilityFunction = "Sigmoid"), "ggplot")
expect_s3_class(hydraulics_vulnerabilityCurvePlot(x3, type = "root", vulnerabilityFunction = "Sigmoid"), "ggplot")
expect_null(hydraulics_vulnerabilityCurvePlot(x3, soil = examplesoil, type = "rhizosphere"))
})
test_that("hydraulic supply functions can be shown",{
x2 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_sperry)
expect_s3_class(hydraulics_supplyFunctionPlot(x2, type = "E"), "ggplot")
expect_s3_class(hydraulics_supplyFunctionPlot(x2, type = "ERhizo"), "ggplot")
expect_s3_class(hydraulics_supplyFunctionPlot(x2, type = "StemPsi"), "ggplot")
expect_s3_class(hydraulics_supplyFunctionPlot(x2, type = "dEdP"), "ggplot")
})
test_that("Stomatal regulation plot can be shown",{
d = 100
x2 <- spwbInput(exampleforest, examplesoil, SpParamsMED, control_sperry)
expect_s3_class(transp_stomatalRegulationPlot(x2, examplemeteo, day = d, timestep=12,
latitude = 41.82592, elevation = 100, type="E"), "ggplot")
})
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.