# NOT RUN {
{
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4",
"lbh_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"))
# make selection table
st <- selection_table(X = lbh_selec_table, path = tempdir())
is_selection_table(st)
#' # make extended selection table
st <- selection_table(X = lbh_selec_table, extended = TRUE,
confirm.extended = FALSE,
path = tempdir())
is_extended_selection_table(st)
### make extended selection by song
# create a song variable
lbh_selec_table$song <- as.numeric(lbh_selec_table$sound.files)
st <- selection_table(X = lbh_selec_table, extended = TRUE,
confirm.extended = FALSE, by.song = "song", path = tempdir())
}
# }
Run the code above in your browser using DataLab