## Not run:
# # First set temporary folder
# setwd(tempdir())
#
# data(list = c("Phae.long1","manualoc.df"))
# writeWave(Phae.long1, "Phae.long1.wav") #save sound files
#
# # specifying the correct margin is important
# # use snrspecs to troubleshoot margins for sound files
# sig2noise(manualoc.df[grep("Phae.long1", manualoc.df$sound.files), ], mar = 0.2)
#
# # this smaller margin doesn't overlap neighboring signals
# sig2noise(manualoc.df[grep("Phae.long1", manualoc.df$sound.files), ], mar = 0.1)
# ## End(Not run)
Run the code above in your browser using DataLab