## Not run: ------------------------------------
# # set the temp directory
# setwd(tempdir())
#
# #load data
# data(list = c("Phae.long1", "Phae.long2","selec.table"))
# writeWave(Phae.long2, "Phae.long2.wav") #save sound files
# writeWave(Phae.long1, "Phae.long1.wav")
#
# # run function
# dfts(X = selec.table, length.out = 30, flim = c(1, 12), bp = c(2, 9), wl = 300)
#
## ---------------------------------------------
Run the code above in your browser using DataLab