powered by
rmnoise(wave, f, output = "matrix", ...)
wave
"matrix"
"Wave"
"Sample"
"audioSample"
"ts"
smooth.spline
output
afilter
noisew
# synthesis of a 440 Hz sound with background noise n <- noisew(d=1,f=8000) s <- synth(d=1,f=8000,cf=440) ns <- n+s # remove noise (but low frequency content still there) a <- rmnoise(ns,f=8000)
Run the code above in your browser using DataLab