fix some typos

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,11 +122,12 @@ 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), 
+# 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,
@@ -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)