## Not run:
# #Set temporal folder as working directory
# setwd(tempdir())
#
# #load data
# data("Cryp.soui")
# writeWave(Cryp.soui, "Cryp.soui.wav") #save sound files
#
# #autodetec location of signals
# ad <- autodetec(threshold = 6, bp = c(1, 3), mindur = 1.2,
# maxdur = 3, img = FALSE, ssmooth = 600, wl = 300, flist = "Cryp.soui.wav")
#
# #track dominant frequency graphs
# trackfreqs(X = ad[!is.na(ad$start),], flim = c(0, 5), ovlp = 90, it = "tiff",
# bp = c(1, 3), contour = "df", wl = 300)
#
# #using users frequency data (custom.contour argument)
# #first get contours using dfts
# df <- dfts(X = ad[!is.na(ad$start),], flim = c(0, 5), ovlp = 90, img = FALSE,
# bp = c(1, 3), wl = 300)
#
# # now input the dfts output into trackfreqs
# trackfreqs(X = ad[!is.na(ad$start),], custom.contour = df ,flim = c(0, 5), ovlp = 90, it = "tiff")
#
# # Check this folder
# getwd()
#
# #track both frequencies
# trackfreqs(X = ad[!is.na(ad$start),], flim = c(0, 5), ovlp = 90, it = "tiff",
# bp = c(1, 3), contour = "both", wl = 300)
#
# ## End(Not run)
Run the code above in your browser using DataLab