From 199fa174bb01c0a39ed855f72cedd28977532a5f Mon Sep 17 00:00:00 2001
From: aaron <aaron@duckpond.ch>
Date: Sat, 27 Jan 2024 17:04:08 +0100
Subject: [PATCH] fix some typos

---
 warbleR_xeno-canto/warbleR_xeno-canto.r | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/warbleR_xeno-canto/warbleR_xeno-canto.r b/warbleR_xeno-canto/warbleR_xeno-canto.r
index 489c79a..eb5b85e 100644
--- a/warbleR_xeno-canto/warbleR_xeno-canto.r
+++ b/warbleR_xeno-canto/warbleR_xeno-canto.r
@@ -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)
\ No newline at end of file
+full_spectrogram2pdf(keep.img = FALSE, overwrite = TRUE)