## uncomment and run
## white noise
#noise = rnorm(5000)
## low-pass filter
#synthfilter (noise, band = c(0, .25), verify = TRUE)
## band-pass filter
#synthfilter (noise, band = c(.15, .25), verify = TRUE)
## high-pass filter
#synthfilter (noise, band = c(.35, .5), verify = TRUE)
Run the code above in your browser using DataLab