[adegenet-commits] r409 - pkg/R

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

Author: jombart
Date: 2009-06-19 00:06:35 +0200 (Fri, 19 Jun 2009)
New Revision: 409

Modified:
   pkg/R/seqTrack.R
Log:
class==.. -> inherits


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-06-18 17:37:05 UTC (rev 408)
+++ pkg/R/seqTrack.R	2009-06-18 22:06:35 UTC (rev 409)
@@ -726,7 +726,7 @@
     }
 
     ## method for haploSim
-    if(class(x)=="haploSim"){
+    if(inherits(x,"haploSim")){
         res <- x
         ances.id <- match(x$ances, labels(x))
     }