## Not run:
# # First create empty folder
# setwd(tempdir())
#
# data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4"))
# writeWave(Phae.long1,"Phae.long1.wav")
# writeWave(Phae.long2,"Phae.long2.wav")
# writeWave(Phae.long3,"Phae.long3.wav")
# writeWave(Phae.long4,"Phae.long4.wav")
#
# ad <- autodetec(threshold = 5, env = "hil", ssmooth = 300, power=1,
# bp=c(2,9), xl = 2, picsize = 2, res = 200, flim= c(1,11), osci = TRUE,
# wl = 300, ls = FALSE, sxrow = 2, rows = 4, mindur=0.1, maxdur=1, set = TRUE)
#
# #run it with different settings
# ad <- autodetec(threshold = 90, env = "abs", ssmooth = 300, power = 1, redo = TRUE,
# bp=c(2,9), xl = 2, picsize = 2, res = 200, flim= c(1,11), osci = TRUE,
# wl = 300, ls = FALSE, sxrow = 2, rows = 4, mindur=0.1, maxdur=1, set = TRUE)
#
# #check this folder!!
# getwd()
# ## End(Not run)
Run the code above in your browser using DataLab