data(orni)
H(orni,f=22050)
# [1] 0.766589
# changing the spectral parameter (wl)
H(orni,f=22050,wl=1024)
# [1] 0.7785917
# changing the temporal parameter (smooth)
H(orni,f=22050,smooth=20)
# [1] 0.7491108
Run the code above in your browser using DataLab