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
##
# 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.
# 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.
# play around with the auto detection, setting the values accordingly.
# Phaethornis longirostris songs have frequencies between 2 and 10 kHz and durations between 0.05 and 0.5 s.
Phae.ad <- auto_detec(
path = wd,
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)
)
# 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)
# create an image with all detections
full_spectrograms(flim = c(2, 10),
ovlp = 10,
sxrow = 6,
# When we're done, create an image with all detections using full spectrograms
full_spectrograms(
flim = c(2, 10),
ovlp = 10,
sxrow = 6,
rows = 15,
it = "jpeg",
flist = wavs,
@@ -142,7 +139,8 @@ full_spectrograms(flim = c(2, 10),
ssmooth = 900,
bp = c(2, 10),
wl = 300,
parallel = 6*2))
parallel = 6*2)
)
# 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)