From 6d5f4fa0191206e86880310ed03adf4f26bd0b5e Mon Sep 17 00:00:00 2001
From: loganchal <165770479+loganchal@users.noreply.github.com>
Date: Fri, 6 Jun 2025 10:13:29 +1200
Subject: [PATCH] Fix filtering in Rmarkdown analysis

---
 scripts/middle_margin_tests.Rmd | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/scripts/middle_margin_tests.Rmd b/scripts/middle_margin_tests.Rmd
index 0dc46cc..6dd784e 100644
--- a/scripts/middle_margin_tests.Rmd
+++ b/scripts/middle_margin_tests.Rmd
@@ -18,10 +18,14 @@ library(ggplot2)
 #import data 
 count_data <- readxl::read_excel(here('raw_data', 'zooplankton_count_data.xlsx'))
 
-#filter it to the middle segment 
+# Filter it to the middle segment and remove the first subsamples
 
 compare_data <- count_data %>%
-  filter(site %in% c("trevor_middle_margin", "trevor_middle_center")) 
+  filter(site %in% c("trevor_middle_margin", "trevor_middle_center")) %>%
+  filter(
+    subsample_id != "trevor_middle_center_1" &
+      subsample_id != "trevor_middle_margin_1"
+  )
 ```
 
 ## Testing Assumptions