{
# load data
data(list = c("Phae.long1", "Phae.long2","lbh_selec_table"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav")) #save sound files
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
find_clipping(X = lbh_selec_table[1:5, ], path = tempdir())
}
Run the code above in your browser using DataLab