aaron/r-toolbox
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix some typos

Browse Source
This commit is contained in:
aaron
2024-01-27 17:04:08 +01:00
parent 391ad62933
commit 199fa174bb
1 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
warbleR_xeno-canto/warbleR_xeno-canto.r
View File

@@ -111,12 +111,8 @@ sub <- wavs[sample(1:length(wavs), 3)]
# Run auto_detec() on subset of recordings # Run auto_detec() on subset of recordings
## ##
# Once we’re satisfied with the detection, we can run the auto_detec on all the # play around with the auto detection, setting the values accordingly.
# recordings, removing the argument flist (so auto_detec runs over all wav files # Phaethornis longirostris songs have frequencies between 2 and 10 kHz and durations between 0.05 and 0.5 s.
# in the working directory). We will also save the temporal output in an object.
# Once we’re satisfied with the detection, we can run the auto_detec on all the
# recordings, removing the argument flist (so auto_detec runs over all wav files
# in the working directory). We will also save the temporal output in an object.
Phae.ad <- auto_detec( Phae.ad <- auto_detec(
path = wd, path = wd,
threshold = 20, # amplitude threshold in % threshold = 20, # amplitude threshold in %
@@ -126,13 +122,14 @@ Phae.ad <- auto_detec(
parallel = 6*2 # how many cores shall be used in parallel (*2 due to hyper threading) parallel = 6*2 # how many cores shall be used in parallel (*2 due to hyper threading)
) )
# Let’s look at the number of selections per sound file # Let's look at the number of selections per sound file
table(Phae.ad$sound.files) table(Phae.ad$sound.files)
# create an image with all detections # When we're done, create an image with all detections using full spectrograms
full_spectrograms(flim = c(2, 10), full_spectrograms(
ovlp = 10, flim = c(2, 10),
sxrow = 6, ovlp = 10,
sxrow = 6,
rows = 15, rows = 15,
it = "jpeg", it = "jpeg",
flist = wavs, flist = wavs,
@@ -142,7 +139,8 @@ full_spectrograms(flim = c(2, 10),
ssmooth = 900, ssmooth = 900,
bp = c(2, 10), bp = c(2, 10),
wl = 300, wl = 300,
parallel = 6*2)) parallel = 6*2)
)
# combine the image into a single pdf per species like before # combine the image into a single pdf per species like before
full_spectrogram2pdf(keep.img = FALSE, overwrite = TRUE) full_spectrogram2pdf(keep.img = FALSE, overwrite = TRUE)