[adegenet-commits] r74 - pkg/R

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

Author: jombart
Date: 2008-03-20 14:52:31 +0100 (Thu, 20 Mar 2008)
New Revision: 74

Modified:
   pkg/R/spca.R
Log:
Fixes in plot.scpa.


Modified: pkg/R/spca.R
===================================================================
--- pkg/R/spca.R	2008-03-20 13:39:14 UTC (rev 73)
+++ pkg/R/spca.R	2008-03-20 13:52:31 UTC (rev 74)
@@ -294,7 +294,7 @@
     nfnega <- x$nfnega
     ## handle neig parameter - hide cn if nore than 100 links
     nLinks <- sum(card(x$lw$neighbours))
-    if(nLinks < 100) {
+    if(nLinks < 500) {
         neig <- nb2neig(x$lw$neighbours)
     } else {
         neig <- NULL
@@ -305,7 +305,7 @@
       
     # 1
     if(n<30) clab <- 1 else clab <- 0
-    s.label(xy, cpoi=0, clab=clab, include.ori=FALSE, addaxes=FALSE, neig=neig,
+    s.label(xy, clab=clab, include.ori=FALSE, addaxes=FALSE, neig=neig,
             cneig=1, sub="Connection network", csub=2)    
     
     # 2