Nothing
## ---- eval = FALSE-------------------------------------------------------
# pressure_volume_data
# leaf_drying_data
# weather_data
## ---- eval = FALSE-------------------------------------------------------
# pv <- RelativeWaterDeficit(pressure_volume_data)
## ---- eval = FALSE-------------------------------------------------------
# pv <- RelativeWaterDeficit(pressure_volume_data)
# TurgorLossPoint(pv)
## ---- echo = FALSE-------------------------------------------------------
suppressMessages(suppressWarnings(library(pvldcurve)))
pv <- RelativeWaterDeficit(pressure_volume_data)
pv_sub <- subset(pv, sample == 3)
tlp <- TurgorLossPoint(pv_sub)
## ---- eval = FALSE-------------------------------------------------------
# pv <- RelativeWaterDeficit(pressure_volume_data)
# OsmoticPot(pv)
## ---- echo = FALSE-------------------------------------------------------
library(pvldcurve)
pv <- RelativeWaterDeficit(pressure_volume_data)
pv_sub <- subset(pv, sample == 3)
osm <- OsmoticPot(pv_sub)
## ---- eval = FALSE-------------------------------------------------------
# ModElasticity(pv)
## ---- echo = FALSE-------------------------------------------------------
pv <- RelativeWaterDeficit(pressure_volume_data)
pv_sub <- subset(pv, sample == 3)
mod <- ModElasticity(pv_sub)
## ---- eval = FALSE-------------------------------------------------------
# library(pvldcurve)
# data <- WeatherAllocation(leaf_drying_data, weather_data)
## ---- eval = FALSE-------------------------------------------------------
# data <- VaporPressureDeficit(data)
## ---- eval = FALSE-------------------------------------------------------
# data <- SaturationVaporPressure(data)
## ---- eval = FALSE-------------------------------------------------------
# data <- Transpiration(data,
# fresh.weight = "fresh.weight")
## ---- eval = FALSE-------------------------------------------------------
# data:wd <- WeightDifference(data)
# data_ti <- TimeInterval(data)
## ---- eval = FALSE-------------------------------------------------------
# data <- Conductance(data,
# fresh.weight = "fresh.weight")
## ---- eval = FALSE-------------------------------------------------------
# data <- Conductance(data,
# fresh.weight = "fresh.weight",
# driving.force = "conc")
## ---- eval = FALSE-------------------------------------------------------
# data <- RWDInterval(leaf_drying_data,
# fresh.weight = "fresh.weight")
# data <- TimeSinceStart(data)
## ---- eval = FALSE-------------------------------------------------------
# data <- WeatherAllocation(leaf_drying_data, weather_data)
# data <- TimeSinceStart(data)
# data <- RWDInterval(data,
# fresh.weight = "fresh.weight")
# data <- data[data$fw.plateau != "yes",]
# data <- Conductance(data,
# fresh.weight = "fresh.weight")
#
# StomatalClosure(data)
## ---- echo = FALSE-------------------------------------------------------
library(pvldcurve)
df <- WeatherAllocation(leaf_drying_data, weather_data)
df <- TimeSinceStart(df)
df <- RWDInterval(df,
fresh.weight = "fresh.weight")
df <- df[df$fw.plateau != "yes",]
df <- Conductance(df,
fresh.weight = "fresh.weight")
df_sub <- subset(df, sample == 8)
sc <- StomatalClosure(df_sub)
## ---- eval = FALSE-------------------------------------------------------
# data <- WeatherAllocation(leaf_drying_data, weather_data)
# data <- TimeSinceStart(data)
# data <- data[data$fw.plateau != "yes",]
# data <- FittedFW(data)
## ---- echo = FALSE-------------------------------------------------------
library(pvldcurve)
df <- WeatherAllocation(leaf_drying_data, weather_data)
df <- TimeSinceStart(df)
df <- df[df$fw.plateau != "yes",]
df_sub <- subset(df, sample == 8)
sc <- FittedFW(df_sub)
## ---- eval = FALSE-------------------------------------------------------
# data <- WeatherAllocation(leaf_drying_data, weather_data)
# data <- TimeSinceStart(data)
# data <- data[data$fw.plateau != "yes",]
# data <- FittedFW(data, graph = FALSE)
# data <- RWDInterval(data,
# fresh.weight = "fitted.fw")
# data <- Conductance(data,
# fresh.weight = "fitted.fw")
#
# StomatalClosure(data)
## ---- echo = FALSE-------------------------------------------------------
library(pvldcurve)
df <- WeatherAllocation(leaf_drying_data, weather_data)
df <- TimeSinceStart(df)
df <- df[df$fw.plateau != "yes",]
df <- subset(df, sample == 8)
df <- FittedFW(df, graph = FALSE)
df <- RWDInterval(df,
fresh.weight = "fitted.fw")
df <- Conductance(df,
fresh.weight = "fitted.fw")
sc <- StomatalClosure(df)
## ---- eval = FALSE-------------------------------------------------------
# data <- WeatherAllocation(leaf_drying_data, weather_data)
# data <- TimeSinceStart(data)
# data <- data[data$fw.plateau != "yes",]
# data <- FittedFW(data, graph = FALSE)
# data <- RWDInterval(data, fresh.weight = "fitted.fw")
# data <- Conductance(data, fresh.weight = "fitted.fw")
#
# Gmin(data)
## ---- echo = FALSE-------------------------------------------------------
data <- WeatherAllocation(leaf_drying_data, weather_data)
data <- TimeSinceStart(data)
data <- data[data$fw.plateau != "yes",]
data <- FittedFW(data, graph = FALSE)
data <- RWDInterval(data,
fresh.weight = "fitted.fw")
data <- Conductance(data,
fresh.weight = "fitted.fw")
df_sub <- subset(data, sample == 8)
gmin <- Gmin(df_sub)
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.