IFFT(log|X| + j * unwrap(angle(X))). Returns cepstrum and
quefrency indices.
Usage
morie_dsp_complex_cepstrum(x)
Arguments
- x
Numeric vector.
Value
List with cepstrum and quefrency.
References
Rangayyan & Krishnan (2015), Ch. 4, sec. 4.10;
Oppenheim & Schafer (2010).
Examples
set.seed(1)
x <- sin(2 * pi * 0.05 * (1:256)) + rnorm(256, 0, 0.1)
str(morie_dsp_complex_cepstrum(x), max.level = 1)
#> List of 2
#> $ cepstrum : num [1:256] 0.539 10.641 6.662 1.958 2.619 ...
#> $ quefrency: int [1:256] 0 1 2 3 4 5 6 7 8 9 ...
