# NOT RUN {
# Set temporary working directory
setwd(tempdir())
data(list = c("Phae.long1", "Phae.long2", "Phae.long3"))
writeWave(Phae.long1,"Phae.long1.wav")
writeWave(Phae.long2,"Phae.long2.wav")
writeWave(Phae.long3,"Phae.long3.wav")
wavdur()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab