powered by
afilter(wave, f, threshold = 5, plot = TRUE, ...)
Sample
loadSample
wave
TRUE
oscillo
plot
FALSE
afilter
threshold
ffilter
data(orni) op<-par(mfrow=c(2,1)) afilter(orni,f=22050) title(main = "threshold level = 5") afilter(orni,f=22050,threshold=0.5,colwave="blue") title(main = "threshold level = 0.5") par(op)
Run the code above in your browser using DataLab