## Not run:
# #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)
# ## End(Not run)
Run the code above in your browser using DataLab