powered by
noise(f, d)
noise
runif
synth
pulse
# add noise to a synthetic signal a<-noise(d=1,f=8000) b<-synth(f=8000,d=1,cf=2000,plot=FALSE) c<-a+b spectro(c,f=8000)
Run the code above in your browser using DataLab