# NOT RUN {
{
#load data
data("Cryp.soui")
writeWave(Cryp.soui, file.path(tempdir(), "Cryp.soui.wav")) #save sound files
#autodetec location of signals
ad <- autodetec(threshold = 6, bp = c(1, 3), mindur = 1.2,
maxdur = 3, ssmooth = 600, wl = 300, flist = "Cryp.soui.wav", path = tempdir())
#track dominant frequency graphs with freq reange detection
track_freq_contour(X = ad[!is.na(ad$start),], flim = c(0, 5), ovlp = 90, it = "tiff",
bp = c(1, 3), contour = "df", wl = 300, frange = TRUE, path = tempdir())
# create folder to move image files
dir.create(file.path(tempdir(), "imgs"))
#copy files
move_imgs(cut = FALSE, from = tempdir(), to = file.path(tempdir(), "imgs"))
# cut files
move_imgs(cut = TRUE, from = tempdir(),
to = file.path(tempdir(), "imgs"), overwrite = TRUE)
# Check this folder
tempdir()
}
# }
Run the code above in your browser using DataLab