pcnm failed if all distances == 0

(cherry picked from commit dfa6125)
vegandevs · Nov 11, 2020 · 586ac47 · 586ac47
1 parent 0d029fb
commit 586ac47
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/pcnm.R b/R/pcnm.R
@@ -18,7 +18,8 @@
                 weights = mypcnm$weig)
     k <- ncol(mypcnm$points)
     res$vectors <- sweep(res$vectors, 2, sqrt(res$values[seq_len(k)]), "/")
-    colnames(res$vectors) <- paste("PCNM", 1:k, sep="")
+    if (NCOL(res$vectors))
+        colnames(res$vectors) <- paste("PCNM", 1:k, sep="")
     res$threshold <- threshold
     if (dist.ret) {
         attr(dis, "method") <- paste(attr(dis, "method"), "pcnm")