tests/testthat/test_resp.R

context("Respiratory & apnea functions testing")

test_that("Apnea Detection", {
  
  spo2_sample <- c(98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88)
  sample_rate <- 1  # Assuming 1 Hz sampling rate
  detected_apneas <- detect_apneic_events(spo2_sample, sample_rate)

})
boupetch/rsleep documentation built on March 15, 2024, 5:44 p.m.