Group delay
Compute the average delay of a filter (group delay).
grpdelay(filt, ...) ## S3 method for class 'grpdelay' print(x, ...) ## S3 method for class 'grpdelay' plot( x, xlab = if (x$HzFlag) "Frequency (Hz)" else "Frequency (rad/sample)", ylab = "Group delay (samples)", type = "l", ... ) ## Default S3 method: grpdelay(filt, a = 1, n = 512, whole = FALSE, fs = NULL, ...) ## S3 method for class 'Arma' grpdelay(filt, ...) ## S3 method for class 'Ma' grpdelay(filt, ...) ## S3 method for class 'Sos' grpdelay(filt, ...) ## S3 method for class 'Zpg' grpdelay(filt, ...)
filt |
for the default case, the moving-average coefficients of an ARMA model or filter. Generically, filt specifies an arbitrary model or filter operation. |
... |
for methods of grpdelay, arguments are passed to the default method. For plot.grpdelay, additional arguments are passed through to plot. |
x |
object to be plotted. |
xlab, ylab, type |
as in plot, but with more sensible defaults. |
a |
the autoregressive (recursive) coefficients of an ARMA filter. |
n |
number of points at which to evaluate the frequency response. If
|
whole |
FALSE (the default) to evaluate around the upper half of the unit circle or TRUE to evaluate around the entire unit circle. |
fs |
sampling frequency in Hz. If not specified, the frequencies are in radians. |
If the denominator of the computation becomes too small, the group delay is set to zero. (The group delay approaches infinity when there are poles or zeros very close to the unit circle in the z plane.)
A list of class grpdelay with items:
the group delay, in units of samples. It can be converted to seconds by multiplying by the sampling period (or dividing by the sampling rate fs).
frequencies at which the group delay was calculated.
number of points at which the group delay was calculated.
TRUE for frequencies in Hz, FALSE for frequencies in radians.
Paul Kienzle, pkienzle@users.sf.net,
Julius O. Smith III, jos@ccrma.stanford.edu.
Conversion to R by Tom Short,
adapted by Geert van Boxtel, gjmvanboxtel@gmail.com
# Two Zeros and Two Poles b <- poly(c(1 / 0.9 * exp(1i * pi * 0.2), 0.9 * exp(1i * pi * 0.6))) a <- poly(c(0.9 * exp(-1i * pi * 0.6), 1 / 0.9 * exp(-1i * pi * 0.2))) gpd <- grpdelay(b, a, 512, whole = TRUE, fs = 1) print(gpd) plot(gpd)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.