betadisper fails if all distances==0: minimal fix to issue #372

(cherry picked from commit f03b9d2)
vegandevs · Nov 11, 2020 · 2e4a12e · 2e4a12e
1 parent 586ac47
commit 2e4a12e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/betadisper.R b/R/betadisper.R
@@ -140,7 +140,9 @@
         zij <- zij*sqrt(n.group[group]/(n.group[group]-1))
     }
     ## add in correct labels
-    colnames(vectors) <- names(eig) <- paste("PCoA", seq_along(eig), sep = "")
+    if (any(want))
+        colnames(vectors) <- names(eig) <-
+            paste("PCoA", seq_along(eig), sep = "")
     if(is.matrix(centroids))
         colnames(centroids) <- names(eig)
     else