# NOT RUN {
## obtain Daubechies least asymmetric 8-tap filter
## set
filters <- wavDaubechies("s8", normalize=TRUE)
## plot the impulse responses
plot(filters, type="time")
## plot the gain function
plot(filters, type="gain")
# }
Run the code above in your browser using DataLab