data(tico)
data(orni)
# selection in tico to have two waves of similar duration (length)
tico<-as.matrix(tico[1:15842,1])
diffwave(tico,orni,f=22050)
# [1] 0.4027229
# changing the frequency parameter (wl)
diffwave(tico,orni,f=22050,wl=1024)
# [1] 0.4335703
# changing the temporal parameter (smooth)
diffwave(tico,orni,f=22050,smooth=20)
# [1] 0.3758508
Run the code above in your browser using DataLab