hpz1 in Two point difference filter. > n <- whiteNoise AR > audition (out 0 (hpz1 (n * 0.25)))