[adegenet-commits] r383 - pkg/R

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

Author: jombart
Date: 2009-06-08 19:52:46 +0200 (Mon, 08 Jun 2009)
New Revision: 383

Modified:
   pkg/R/seqTrack.R
Log:
finally came out with a consensus. Yet not wonderfully satisfying.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-06-08 16:13:24 UTC (rev 382)
+++ pkg/R/seqTrack.R	2009-06-08 17:52:46 UTC (rev 383)
@@ -670,8 +670,8 @@
 #################
 ## get.consensus
 #################
-get.consensus <- function(listres){
-    res <- list()
+get.consensus <- function(orires, listres){
+    res <- orires
 
     ## tables of occurences of ancestors
     temp <- apply(listres$ances, 1, table)
@@ -691,8 +691,9 @@
     }
 
     ## form the output
-    res$id <- 1:nrow(listres$ances)
-    res$ances
+    res$ances <- newances
+    res$support <- ances.support
+
     return(res)
 }