merge a few edits

Rmd/cleaningFeederData.Rmd

@@ -19,6 +19,8 @@ output:
   bookdown::pdf_document2:
     fig_caption: yes
     number_sections: yes
+    toc: yes
+    toc_depth: 2
   bookdown::word_document2:
     fig_caption: yes
     number_sections: yes
@@ -80,21 +82,6 @@ kableExtra::kable(head(origDataDT), digits = 2,
   kable_styling()
 ```
 
-Check data prep worked OK.
-
-```{r dataPrep}
-# check
-t <- origDataDT[, .(nObs = .N,
-                  firstDate = min(rDateTime, na.rm = TRUE),
-                  lastDate = max(rDateTime, na.rm = TRUE),
-                  meankW = mean(kW, na.rm = TRUE)
-), keyby = .(region, feeder_ID)]
-
-kableExtra::kable(t, digits = 2,
-                  caption = "Counts per feeder (long table)") %>%
-  kable_styling()
-```
-
 Do a duplicate check by feeder_ID, dateTime & kW. In theory there should not be any.
 
 ```{r checkForDuplicates}