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_txt <- read_6800_txt(file.path(exampledir, "/lowo2"))
# compare all except equations. Note txt file reports some NAs as zero:
columns_to_check <- names(li6800)[!names(li6800) %in%
c("gasanalyzer.Equations")]
all.equal(li6800[columns_to_check],
li6800_txt[columns_to_check],
tol = 0.01)
Run the code above in your browser using DataLab