## Begin prepare data ----
path <- pulse_example()
chn <- paste0("c", formatC(1:10, width = 2, flag = "0"))
heart_rates <- PULSE(
path,
discard_channels = chn[-8],
raw_v_smoothed = FALSE,
show_progress = FALSE)
## End prepare data ----
pulse_plot_one(heart_rates$data[[1]])
Run the code above in your browser using DataLab