racircalbatch_advanced: Corrects a batch of rapid A/Ci response (RACiR) data

In jstinzi/racir: Rapid A/Ci Response (RACiR) Data Analysis

Description

racircalbatch_advanced Corrects your RACiR data files based on a calibration file. Produces diagnostic graphs of A vs. Ci for quality control. Output includes a list of data frames with corrected data.

Usage

racircalbatch_advanced(
  caldata,
  data,
  mincut,
  maxcut,
  digits,
  title,
  varnames = list(A = "A", Ca = "Ca", CO2_r = "CO2_r", E = "E", gtc = "gtc")
)

Arguments

caldata	Data frame with the calibration data
data	List of data frames with the RACiR response data
mincut	Minimum cutoff value for reference CO2 (CO2_r). Used to cut out the data from the initial chamber mixing. Default value is set to the minimum COR_r value.
maxcut	Maximum cutoff value for reference CO2 (CO2_r). Used to cut out the data from the end of the response. Not needed in all cases. Default value is set to the maximum COR_r value.
digits	Specifies rounding for groups. Defaults to -2 (100s). Effectively uses 100 ppm intervals (e.g. data matching >50 ppm to 150 ppm would be assigned to an interval centered around 100 ppm for reference CO2).
title	Vector for titles of output graph - useful for batch RACiR corrections. Length must be equal to data list length
varnames	Variable names - this allows for the use of this code with other machines and setups where variable names may differ.

Value

racircalbatch_advanced uses racircal_advanced on many files

Examples

#Create a list of files
files <- c(system.file("extdata", "poplar_1", package = "racir"),
          system.file("extdata", "poplar_2", package = "racir"))
data <- vector("list", length(files))
for(i in seq_along(files)){
 data[[i]] <- read_6800(files[i])
 names(data)[i] <- files[i]
}

caldata <- read_6800(system.file("extdata", "cal", package = "racir"))
output <- racircalbatch_advanced(caldata = caldata, data = data,
                                mincut = 300, maxcut = 780, title = files)

jstinzi/racir documentation built on Aug. 8, 2020, 1:13 a.m.