a<-synth(f=8000,d=1,cf=2000,plot=FALSE)
speca<-spec(a,f=8000,wl=512,at=0.5,plot=FALSE)
sh(speca)
# [1] 0.2336412
b<-noise(d=1,f=8000)
specb<-spec(b,f=8000,wl=512,at=0.5,plot=FALSE)
sh(specb)
# [1] 0.9740975
Run the code above in your browser using DataLab