[Vegan-commits] r1720 - branches/1.17/R

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2011-08-15 13:35:03 +0200 (Mon, 15 Aug 2011)
New Revision: 1720

Modified:
   branches/1.17/R/orditorp.R
Log:
really merge r1689 like ChangeLog and NEWS claim to be have done

Modified: branches/1.17/R/orditorp.R
===================================================================
--- branches/1.17/R/orditorp.R	2011-08-15 11:28:17 UTC (rev 1719)
+++ branches/1.17/R/orditorp.R	2011-08-15 11:35:03 UTC (rev 1720)
@@ -8,10 +8,15 @@
     if (missing(pcol))
         pcol <- col
     x <- scores(x, display = display, choices = choices, ...)
+    kk <- complete.cases(x)
     if (missing(labels))
         labels <- rownames(x)
     if (missing(priority))
         priority <- rowSums((scale(x)^2))
+    ## remove NA scores
+    x <- x[kk,]
+    priority <- priority[kk]
+    labels <- labels[kk]
     w <- abs(strwidth(labels, cex = cex))/2 * air
     h <- abs(strheight(labels, cex = cex))/2 * air
     xx <- cbind(x[, 1] - w, x[, 1] + w, x[, 2] - h, x[, 2] +