examples/runAnalysis.R

In jipp3r/nddspiro.R: Extracts Spirometry Data From ndd XML Files

library(nddspiro)
library(dplyr)
library(XML)

indices <- as.list(c("FEV1",
                     "FEV6",
                     "FVC",
                     "FEV1_FVC",
                     "PEFR",
                     "FEF2575",
                     "FET",
                     "BEV",
                     "EOTV",
                     "VCmax"))

x <- nddspiro.read("./data/example_ndd.xml", indices, traces=3, accepted_only=FALSE, add_GLI=TRUE)

write.csv(x, "./output/example_ndd.csv")