# NOT RUN {
#Read in data
data <- read.csv(system.file("extdata", "example_2.csv",
package = "plantecowrap"), stringsAsFactors = FALSE)
#Run ACi curve fitting
fits <- fitacis2(data, group1 = "Grouping",
varnames = list(ALEAF = "A",
Tleaf = "Tleaf",
Ci = "Ci",
PPFD = "PPFD",
Rd = "Rd",
Press = "Press"),
fitmethod = "bilinear", fitTPU = TRUE, Tcorrect = FALSE)
#Extract coefficients
outputs <- acisummary(data, group1 = "Grouping", fits = fits)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab