# NOT RUN {
{
# Save to temporary working directory
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"))
# try optimization with 2 tresholds
optimize_autodetec(X = selec.table, threshold = c(10, 15), path = tempdir())
# this time by each sound file and 3 thresholds
optimize_autodetec(X = selec.table, threshold = c(5, 10, 15), by.sound.file = TRUE,
path = tempdir())
# run autodetec with output list
ad <- autodetec(output = "list", thinning = 1 / 10, ssmooth = 300, path = tempdir())
optimize_autodetec(X = selec.table, Y = ad, threshold = c(5, 10, 15), path = tempdir())
}
# }
Run the code above in your browser using DataLab