From 01703373cc829efb899a02522babe622a4f6891e Mon Sep 17 00:00:00 2001
From: Natan Yusupov <natan_yusupov@psych.mpg.de>
Date: Fri, 15 Mar 2024 08:02:25 +0100
Subject: [PATCH] small bug fix script 4

---
 scripts/4_check_matching_of_epigenetic_sex.Rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/4_check_matching_of_epigenetic_sex.Rmd b/scripts/4_check_matching_of_epigenetic_sex.Rmd
index 98c4e00..7554c19 100644
--- a/scripts/4_check_matching_of_epigenetic_sex.Rmd
+++ b/scripts/4_check_matching_of_epigenetic_sex.Rmd
@@ -68,7 +68,7 @@ If you have any sex mismatches, they will be displayed in the table above as red
 ```{r, test sex matches}
 mismatch_check_df <- sex_df %>%
   select(reported_sex, predicted_sex) %>%
-  rowwise %>%
+  rowwise() %>%
   mutate(match = n_distinct(unlist(cur_data())) == 1) %>%
   ungroup()