# NOT RUN {
w <- seq(0, 4, length.out = 128)
## 5th order Bessel low-pass analog filter
zp <- besself(5, 1.0)
freqs(zp, w)
## 5th order Bessel high-pass analog filter
zp <- besself(5, 1.0, 'high')
freqs(zp, w)
## 5th order Bessel band-pass analog filter
zp <- besself(5, c(1, 2), 'pass')
freqs(zp, w)
## 5th order Bessel band-stop analog filter
zp <- besself(5, c(1, 2), 'stop')
freqs(zp, w)
# }
Run the code above in your browser using DataLab