#First set temporal working directory
setwd(tempdir())
#load data
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4","manualoc.df"))
writeWave(Phae.long1, "Phae.long1.wav") #save sound files
writeWave(Phae.long2, "Phae.long2.wav")
writeWave(Phae.long3, "Phae.long3.wav")
writeWave(Phae.long4, "Phae.long4.wav")
xcor<-xcorr(X = manualoc.df, wl =300, frange= c(2, 9), ovlp=90,
dens=1, wn='hanning', cor.method = "pearson")
Run the code above in your browser using DataLab