## Not run:
# # First create empty folder
# setwd(tempdir())
#
# data(list = c("Phae.long1", "Phae.long2", "manualoc.df"))
# writeWave(Phae.long1, "Phae.long1.wav") #save sound.files
# writeWave(Phae.long2, "Phae.long2.wav")
#
# # make Phae.long1 and Phae.long2 spectrograms
# # snrmar needs to be smaller before moving on to sig2noise()
#
# snrspecs(manualoc.df, flim = c(0, 14), inner.mar = c(4,4.5,2,1), outer.mar = c(4,2,2,1),
# picsize = 2, res = 300, cexlab = 2, mar = 0.2, snrmar = 0.1, it = "jpeg", wl = 300)
#
# # make only Phae.long1 spectrograms
# # snrmar now doesn't overlap neighboring signals
#
# snrspecs(manualoc.df[grepl(c("Phae.long1"), manualoc.df$sound.files), ], flim = c(3, 14),
# inner.mar = c(4,4.5,2,1), outer.mar = c(4,2,2,1), picsize = 2, res = 300, cexlab = 2,
# mar = 0.2, snrmar = 0.01, wl = 300)
#
# #check this folder!!
# getwd()
# ## End(Not run)
Run the code above in your browser using DataLab