[adegenet-commits] r721 - pkg/R

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

Author: jombart
Date: 2010-11-23 23:57:52 +0100 (Tue, 23 Nov 2010)
New Revision: 721

Modified:
   pkg/R/inbreeding.R
Log:
small bug corrected


Modified: pkg/R/inbreeding.R
===================================================================
--- pkg/R/inbreeding.R	2010-11-23 20:45:05 UTC (rev 720)
+++ pkg/R/inbreeding.R	2010-11-23 22:57:52 UTC (rev 721)
@@ -11,7 +11,6 @@
 
     if(!is.null(pop)) pop(x) <- pop
     if(is.null(x at pop) && is.null(pop)) {
-        if(!quiet) warning("\npop is not provided either in x or in pop - assuming one single group")
         pop <- factor(rep(1, nrow(x at tab)))
     }