[Seqinr-commits] r1766 - pkg/man

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

Author: simonpenel
Date: 2012-02-15 10:30:35 +0100 (Wed, 15 Feb 2012)
New Revision: 1766

Modified:
   pkg/man/consensus.Rd
Log:
Modification of example according to modification in the R code


Modified: pkg/man/consensus.Rd
===================================================================
--- pkg/man/consensus.Rd	2012-02-07 12:34:34 UTC (rev 1765)
+++ pkg/man/consensus.Rd	2012-02-15 09:30:35 UTC (rev 1766)
@@ -76,7 +76,8 @@
 #
   res.thr <- consensus(phylip, method = "threshold")
   res.thr[is.na(res.thr)] <- "." # change NA into dots
-  stopifnot(c2s(res.thr) == "aa.c..t.gc.gtt..g..t.a.cc..ggccg.......ta.")
+# stopifnot(c2s(res.thr) == "aa.c..t.gc.gtt..g..t.a.cc..ggccg.......ta.")
+  stopifnot(c2s(res.thr) == "aa.cc.tggccgttcagggtaaacc.tggccgg.cagggtat")
 #
 # With an IUPAC summary:
 #