[adegenet-commits] r421 - pkg/R

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

Author: jombart
Date: 2009-06-23 13:51:01 +0200 (Tue, 23 Jun 2009)
New Revision: 421

Modified:
   pkg/R/haploSim.R
Log:
conversion from haploSim to seqTrack now restores the good class.


Modified: pkg/R/haploSim.R
===================================================================
--- pkg/R/haploSim.R	2009-06-23 11:34:20 UTC (rev 420)
+++ pkg/R/haploSim.R	2009-06-23 11:51:01 UTC (rev 421)
@@ -437,6 +437,9 @@
     res$ances <- match(res$ances, res$id)
     res$id <- 1:length(res$id)
 
+    ## SET CLASS
+    class(res) <- c("seqTrack", "data.frame")
+
     return(res)
 }