#load data
#First set temporal working directory]
setwd(tempdir())
#load data
data(list = c("Phae.long1", "Phae.long2", "manualoc.df"))
writeWave(Phae.long1, "Phae.long1.wav") #save sound files
writeWave(Phae.long2, "Phae.long2.wav")
#run cross correlation first
xcor<-xcorr(X = manualoc.df[1:5,], wl =300, frange= c(2, 9), ovlp=90, dens=0.8, wn='hanning',
cor.method = "pearson")
#plot pairwise scores
xcorr.graph(X = xcor, cex.cor = 2, cex.lab = 1, rel.cex = FALSE)
Run the code above in your browser using DataLab