# NOT RUN {
{
#load data
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4","lbh_selec_table"))
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav")) #save sound files
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav"))
writeWave(Phae.long3, file.path(tempdir(), "Phae.long3.wav")) #save sound files
writeWave(Phae.long4, file.path(tempdir(), "Phae.long4.wav"))
# without clip edges
sp.en.ts(X = lbh_selec_table, threshold = 10, clip.edges = FALSE, length.out = 10,
type = "b", sp.en.range = c(-25, 10), path = tempdir())
# with clip edges and length.out 10
sp.en.ts(X = lbh_selec_table, threshold = 10, bp = c(2, 12), clip.edges = TRUE, length.out = 10,
path = tempdir())
}
# }
Run the code above in your browser using DataLab