[R-gregmisc-users] SF.net SVN: r-gregmisc:[1776] trunk/gtools/tests/test_mixedorder.R

[<wa...@us...>]

Revision: 1776
          http://sourceforge.net/p/r-gregmisc/code/1776
Author:   warnes
Date:     2014-03-01 20:15:05 +0000 (Sat, 01 Mar 2014)
Log Message:
-----------
Fix cut-and-paste error.

Modified Paths:
--------------
    trunk/gtools/tests/test_mixedorder.R

Modified: trunk/gtools/tests/test_mixedorder.R
===================================================================
--- trunk/gtools/tests/test_mixedorder.R	2014-03-01 20:12:46 UTC (rev 1775)
+++ trunk/gtools/tests/test_mixedorder.R	2014-03-01 20:15:05 UTC (rev 1776)
@@ -5,7 +5,7 @@
                "Asprin 100mg/day", "Acetomycin 100mg/day",
                "Acetomycin 1000mg/day")
 
-stopifnot( mixedorder(tmp)==c(4, 5, 1, 2, 3 ))
+stopifnot( mixedorder(Treatment)==c(5, 6, 2, 3, 4, 1) )
 
 
 x <- rev(c("AA 0.50 ml", "AA 1.5 ml", "AA 500 ml", "AA 1500 ml",

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.