if (FALSE) {
data(list = c("Phae.long1", "Phae.long2", "lbh_selec_table"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav")) # save sound.files
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
# make Phae.long1 and Phae.long2 spectrograms
# snrmar needs to be smaller before moving on to sig2noise()
snr_spectrograms(lbh_selec_table,
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, path = tempdir()
)
# make only Phae.long1 spectrograms
# snrmar now doesn't overlap neighboring signals
snr_spectrograms(lbh_selec_table[grepl(c("Phae.long1"), lbh_selec_table$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,
path = tempdir()
)
# check this folder!
tempdir()
}
Run the code above in your browser using DataLab