## Not run: ------------------------------------
# # Set temporary working directory
# setwd(tempdir())
#
# data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "selec.table"))
# writeWave(Phae.long1,"Phae.long1.wav")
# writeWave(Phae.long2,"Phae.long2.wav")
# writeWave(Phae.long3,"Phae.long3.wav")
# writeWave(Phae.long4,"Phae.long4.wav")
#
# fixwavs(files = selec.table$sound.files)
#
# #check this folder
# getwd()
## ---------------------------------------------
Run the code above in your browser using DataLab