exampledir <- system.file("extdata", package = "gasanalyzer")
# import factory calibration for example data:
import_factory_cals(exampledir)
# read data:
li6800 <- read_6800_xlsx(file.path(exampledir, "lowo2.xlsx"))
# recalculate using xlsx equations:
li6800 <- recalculate(li6800)
# recalculate using gasanalyzer default equations for the li6800:
li6800_ge <- recalculate(li6800, create_equations(c("default", "li6800")))
# the difference is that units have been enforced using gasanalyzer, which
# has been recorded in a column:
all.equal(li6800, li6800_ge[names(li6800)], tol = 0.01)
Run the code above in your browser using DataLab