example <- system.file("extdata", "ciras4.csv", package = "gasanalyzer")
# Read using unified column names:
cir4 <- read_ciras4(example)
# Recalculate data using default gas exchange equations:
cir4_recalc <- recalculate(cir4, create_equations(c("default", "ciras4")))
# View differences:
all.equal(cir4, cir4_recalc[names(cir4)], tol = 0.001)
Run the code above in your browser using DataLab