# 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