Synchronized average around trigger indices

Extracts length-window epochs centred on each trigger_indices value and averages them. Out-of-bounds triggers are dropped.

Usage

morie_dsp_synchronized_average(x, trigger_indices, window = 100L)

Arguments

x

Numeric vector.

trigger_indices

Integer vector of 1-based event indices.

window

Epoch length (centred). Default 100.

Value

Mean epoch, length window.

References

Rangayyan & Krishnan (2015), Ch. 3, sec. 3.3.

Examples

set.seed(11L)
fs <- 200L; t <- seq(0, (2000 - 1) / fs, length.out = 2000)
x <- sin(2 * pi * 5 * t)
triggers <- seq(60L, length(x) - 100L, by = 100L)
morie_dsp_synchronized_average(x, trigger_indices = triggers, window = 80L)
#>  [1]  8.233393e-03 -1.900579e-15 -8.233393e-03 -1.626405e-02 -2.389424e-02
#>  [6] -3.093607e-02 -3.721615e-02 -4.257984e-02 -4.689508e-02 -5.005561e-02
#> [11] -5.198360e-02 -5.263158e-02 -5.198360e-02 -5.005561e-02 -4.689508e-02
#> [16] -4.257984e-02 -3.721615e-02 -3.093607e-02 -2.389424e-02 -1.626405e-02
#> [21] -8.233393e-03 -5.834163e-16  8.233393e-03  1.626405e-02  2.389424e-02
#> [26]  3.093607e-02  3.721615e-02  4.257984e-02  4.689508e-02  5.005561e-02
#> [31]  5.198360e-02  5.263158e-02  5.198360e-02  5.005561e-02  4.689508e-02
#> [36]  4.257984e-02  3.721615e-02  3.093607e-02  2.389424e-02  1.626405e-02
#> [41]  8.233393e-03  1.711771e-15 -8.233393e-03 -1.626405e-02 -2.389424e-02
#> [46] -3.093607e-02 -3.721615e-02 -4.257984e-02 -4.689508e-02 -5.005561e-02
#> [51] -5.198360e-02 -5.263158e-02 -5.198360e-02 -5.005561e-02 -4.689508e-02
#> [56] -4.257984e-02 -3.721615e-02 -3.093607e-02 -2.389424e-02 -1.626405e-02
#> [61] -8.233393e-03 -3.307589e-15  8.233393e-03  1.626405e-02  2.389424e-02
#> [66]  3.093607e-02  3.721615e-02  4.257984e-02  4.689508e-02  5.005561e-02
#> [71]  5.198360e-02  5.263158e-02  5.198360e-02  5.005561e-02  4.689508e-02
#> [76]  4.257984e-02  3.721615e-02  3.093607e-02  2.389424e-02  1.626405e-02