## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(EGM)

## -----------------------------------------------------------------------------
#  ecg <- read_wfdb(record = 'muse-sinus',
#                   record_dir = system.file('extdata', package = 'egm'),
#                   annotator = 'ecgpuwave')
#  # Example data
#  ecg