# NOT RUN {
{
# First set temporary folder
# setwd(tempdir())
# write wave files with lower case file extension
data(list = c("Phae.long1"))
writeWave(Phae.long1,"Phae.long1.wav")
read_wave(X = selec.table, index = 1)
}
# }
Run the code above in your browser using DataLab