[adegenet-commits] r413 - pkg/R

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

Author: jombart
Date: 2009-06-19 02:13:17 +0200 (Fri, 19 Jun 2009)
New Revision: 413

Modified:
   pkg/R/seqTrack.R
Log:
Latest update. All works well.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-06-18 23:42:14 UTC (rev 412)
+++ pkg/R/seqTrack.R	2009-06-19 00:13:17 UTC (rev 413)
@@ -843,7 +843,7 @@
         res$ances <- listres$ances[,toKeep]
         res$inf.date <- listres$date[,toKeep]
         res$ances.date <- listres$ances.date[,toKeep]
-        res$weight <- rep(1, length(res$date))
+        res$weight <- NA
     }
 
     return(res)