Correct a bug to deal with rows/columns of 0

This allows to deal properly labels when a species or a site have zero abundance. For instance, in doubs$fish. Before, labels where wrongly assigned
adeverse · Oct 7, 2024 · 69227a1 · 69227a1
1 parent af1eeb3
commit 69227a1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/score.coa.R b/R/score.coa.R
@@ -161,8 +161,8 @@
         oritab <- eval.parent(as.list(y$call)[[2]])
     }
     else oritab <- eval.parent(as.list(x$call)[[2]])
-    l.names <- rownames(oritab)
-    c.names <- colnames(oritab)
+    l.names <- rownames(oritab)[rowSums(oritab) > 0]
+    c.names <- colnames(oritab)[colSums(oritab) > 0]
     oritab <- as.matrix(oritab)
     f1 <- function(x, oritab, xax){
       a <- x$co[col(oritab), xax]