Phonocardiogram (PCG) bandpass filter

Convenience preset wrapping buttbp() with the standard PCG band (25–400 Hz at 2000 Hz sampling). Removes baseline drift below 25 Hz and anti-aliased high-frequency noise above 400 Hz.

Usage

morie_pcg_filter(x, fs = 2000, low = 25, high = 400)

Arguments

x

Numeric vector (PCG signal).

fs

Sampling frequency (Hz, default 2000).

low

Lower cutoff (Hz, default 25).

high

Upper cutoff (Hz, default 400).

Value

List with filtered signal (see buttbp()).

Examples

# \donttest{
if (requireNamespace("signal", quietly = TRUE)) {
  set.seed(1)
  x <- rnorm(2000) # 1 second of white-noise PCG-like input
  y <- morie_pcg_filter(x)
  length(y$filtered)
}
#> [1] 2000
# }