Nothing
## ---- message = FALSE---------------------------------------------------------
library(dplyr)
library(photosynthesis)
# Read in data
dat = system.file("extdata", "PV_curve.csv", package = "photosynthesis") |>
read.csv()
# Fit one PV curve
fit = fit_PV_curve(filter(dat, ID == "L2"))
# See fitted parameters
fit[[1]]
# Plot water mass graph
# fit[[2]]
# Plot PV Curve
# fit[[3]]
#Fit all PV curves in a file
fits = fit_many(
dat,
group = "ID",
funct = fit_PV_curve,
progress = FALSE
)
# See parameters
fits[[1]][[1]]
# See water mass - water potential graph
# fits[[1]][[2]]
# See PV curve
# fits[[1]][[3]]
# Compile parameter outputs
pars = compile_data(data = fits, output_type = "dataframe", list_element = 1)
# Compile the water mass - water potential graphs
graphs1 = compile_data(data = fits, output_type = "list", list_element = 2)
# Compile the PV graphs
graphs2 = compile_data(data = fits, output_type = "list", list_element = 3)
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.