From bca031aeb1c1d6dcd9ca59d1b41963ca3ec85246 Mon Sep 17 00:00:00 2001
From: Evangelia Intze <68451208+intze@users.noreply.github.com>
Date: Wed, 15 May 2024 10:53:26 +0300
Subject: [PATCH] fix xtabs error (R version 4.4.0)

---
 5.Serial-Group-Comparisons/Serial-Group-Comparisons.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/5.Serial-Group-Comparisons/Serial-Group-Comparisons.R b/5.Serial-Group-Comparisons/Serial-Group-Comparisons.R
index 44a2d2a..9877d81 100644
--- a/5.Serial-Group-Comparisons/Serial-Group-Comparisons.R
+++ b/5.Serial-Group-Comparisons/Serial-Group-Comparisons.R
@@ -316,7 +316,7 @@ for (i in dependant_variables_start:dim(input_table)[2])
   
   # Save the name of the observed variable/OTU
   my_name <- colnames(input_table)[i]
-  test_table <- xtabs(my_test_vector ~ independent_variable)
+  test_table <- xtabs(my_test_vector ~ independent_variable, addNA = T, na.rm = T )
   
   # Number of groups to be compared
   num_of_represented_groups <- sum(as.vector(test_table) > 0)