if (FALSE) {
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "selec_table"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav"))
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
writeWave(Phae.long3, file.path(tempdir(), "Phae.long3.wav"))
writeWave(Phae.long4, file.path(tempdir(), "Phae.long4.wav"))
# create extended selection table
by_song_est <- selection_table(lbh_selec_table, path = tempdir(),
extended = TRUE, by.song = "song", confirm.extended = FALSE)
# conver o by element
by_element_est <- by_element_est(by_song_est, mar = 0.05)
}
Run the code above in your browser using DataLab