[adegenet-commits] r392 - pkg/R

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

Author: jombart
Date: 2009-06-10 18:02:10 +0200 (Wed, 10 Jun 2009)
New Revision: 392

Modified:
   pkg/R/haploSim.R
Log:
small minor bugfix


Modified: pkg/R/haploSim.R
===================================================================
--- pkg/R/haploSim.R	2009-06-10 13:29:46 UTC (rev 391)
+++ pkg/R/haploSim.R	2009-06-10 16:02:10 UTC (rev 392)
@@ -309,7 +309,7 @@
     res$seq <- res$seq[i,]
     res$ances <- res$ances[i]
     res$dates <- res$dates[i]
-    if(!is.null(res$xy)) res$xy <- res$xy[i,]
+    if(!is.null(res$xy)) res$xy <- res$xy[i,,drop=FALSE]
 
     return(res)
 }