[adegenet-commits] r80 - pkg/R

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

Author: jombart
Date: 2008-03-28 15:08:32 +0100 (Fri, 28 Mar 2008)
New Revision: 80

Modified:
   pkg/R/chooseCN.R
Log:
Check the value of the exponent in chooseCN, type==7.


Modified: pkg/R/chooseCN.R
===================================================================
--- pkg/R/chooseCN.R	2008-03-27 16:30:32 UTC (rev 79)
+++ pkg/R/chooseCN.R	2008-03-28 14:08:32 UTC (rev 80)
@@ -131,6 +131,7 @@
             cat("\n Enter the minimum distance \n(range = 0 -", max(cn),"): ")
             dmin <- as.numeric(readLines(n = 1))
         }
+        if(a<1) { a <- 1 }
         thres <- mean(cn)/1e8
         if(dmin > thres) dmin <- thres
         cn[cn < dmin] <- dmin