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"))
li6800_norecalc <- read_6800_xlsx(file.path(exampledir, "lowo2.xlsx"),
recalculate = FALSE)
li6800_norecalc$gasanalyzer.Equations <-
list(read_6800_equations(file.path(exampledir, "lowo2.xlsx")))
all.equal(li6800, recalculate(li6800_norecalc), check.attributes = FALSE)
Run the code above in your browser using DataLab