[adegenet-commits] r722 - pkg/R

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

Author: jombart
Date: 2010-11-24 00:07:05 +0100 (Wed, 24 Nov 2010)
New Revision: 722

Modified:
   pkg/R/inbreeding.R
Log:
bug corrected when no pop in the genind


Modified: pkg/R/inbreeding.R
===================================================================
--- pkg/R/inbreeding.R	2010-11-23 22:57:52 UTC (rev 721)
+++ pkg/R/inbreeding.R	2010-11-23 23:07:05 UTC (rev 722)
@@ -11,7 +11,7 @@
 
     if(!is.null(pop)) pop(x) <- pop
     if(is.null(x at pop) && is.null(pop)) {
-        pop <- factor(rep(1, nrow(x at tab)))
+        pop(x) <- factor(rep(1, nrow(x at tab)))
     }