fix xtabs error (R version 4.4.0)

Lagkouvardos · May 15, 2024 · bca031a · bca031a
1 parent 7aed362
commit bca031a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)