# Get example data
file <- spiro_example("zan_gxt")
d <- spiro(file)
out <- spiro_smooth(d, 30)
head(out)
# filter only the VO2 column with a zero-phase Butterworth filter
out2 <- spiro_smooth(d, "0.04fz3", columns = "VO2")
head(out2)
Run the code above in your browser using DataLab