## Not run:
# # First create empty folder
# setwd(tempdir())
#
# data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "manualoc.df"))
# writeWave(Phae.long1,"Phae.long1.wav")
# writeWave(Phae.long2,"Phae.long2.wav")
# writeWave(Phae.long3,"Phae.long3.wav")
# writeWave(Phae.long4,"Phae.long4.wav")
#
# compare.methods(X = manualoc.df, flim = c(0, 10), bp = c(0, 10), mar = 0.1, wl = 300,
# ovlp = 90, res = 200, n = 10, length.out = 30,
# methods = c("XCORR", "dfDTW"), parallel = 1, it = "jpeg")
#
# #remove progress bar
# compare.methods(X = manualoc.df, flim = c(0, 10), bp = c(0, 10), mar = 0.1, wl = 300,
# ovlp = 90, res = 200, n = 10, length.out = 30,
# methods = c("XCORR", "dfDTW"), parallel = 1, it = "jpeg", pb = FALSE)
#
# #check this folder!
# getwd()
# ## End(Not run)
Run the code above in your browser using DataLab