# Get example data
oxy_file <- spiro_example("zan_ramp")
hr_file <- spiro_example("hr_ramp.tcx")
# Import and process spiro data
oxy_data <- spiro(oxy_file)
# Add heart rate data
out <- add_hr(oxy_data, hr_file)
head(out)
Run the code above in your browser using DataLab