[R-gregmisc-users] SF.net SVN: r-gregmisc: [994] trunk/gdata/inst/unitTests/runit.reorder. factor.R

[<gg...@us...>]

Revision: 994
          http://svn.sourceforge.net/r-gregmisc/?rev=994&view=rev
Author:   ggorjan
Date:     2006-10-30 09:26:32 -0800 (Mon, 30 Oct 2006)

Log Message:
-----------
added unit tests for reorder.factor

Added Paths:
-----------
    trunk/gdata/inst/unitTests/runit.reorder.factor.R

Added: trunk/gdata/inst/unitTests/runit.reorder.factor.R
===================================================================
--- trunk/gdata/inst/unitTests/runit.reorder.factor.R	                        (rev 0)
+++ trunk/gdata/inst/unitTests/runit.reorder.factor.R	2006-10-30 17:26:32 UTC (rev 994)
@@ -0,0 +1,64 @@
+### runit.reorder.factor.R
+###------------------------------------------------------------------------
+### What: Tests for reorder.factor
+### $Id$
+### Time-stamp: <2006-10-30 18:25:05 ggorjan>
+###------------------------------------------------------------------------
+
+### {{{ --- Test setup ---
+
+if(FALSE) {
+  library("RUnit")
+  library("gdata")
+}
+
+### }}}
+### {{{ --- reorder.factor ---
+
+test.reorder.factor <- function()
+{
+  tmp <- Sys.getlocale(category="LC_COLLATE")
+  Sys.setlocale(category="LC_COLLATE", locale="C")
+
+  ## Create a 4 level example factor
+  levs <- c("PLACEBO", "300 MG", "600 MG", "1200 MG")
+  trt <- factor(rep(x=levs, times=c(22, 24, 28, 26)))
+
+  ## Change the order to something useful
+  ## default "mixedsort" ordering
+  trt2 <- reorder(trt)
+  levsTest <- c("300 MG", "600 MG", "1200 MG", "PLACEBO")
+  checkIdentical(levels(trt2), levsTest)
+
+  ## using indexes:
+  trt3 <- reorder(trt, new.order=c(4, 2, 3, 1))
+  levsTest <- c("PLACEBO", "300 MG", "600 MG", "1200 MG")
+  checkIdentical(levels(trt3), levsTest)
+
+  ## using label names:
+  trt4 <- reorder(trt, new.order=c("PLACEBO", "300 MG", "600 MG", "1200 MG"))
+  levsTest <- c("PLACEBO", "300 MG", "600 MG", "1200 MG")
+  checkIdentical(levels(trt4), levsTest)
+
+  ## using frequency
+  trt5 <- reorder(trt, X=as.numeric(trt), FUN=length)
+  levsTest <- c("PLACEBO", "300 MG", "1200 MG", "600 MG")
+  checkIdentical(levels(trt5), levsTest)
+
+  ## drop out the '300 MG' level
+  trt6 <- reorder(trt, new.order=c("PLACEBO", "600 MG", "1200 MG"))
+  levsTest <- c("PLACEBO", "600 MG", "1200 MG")
+  checkIdentical(levels(trt6), levsTest)
+
+  Sys.setlocale(category="LC_COLLATE", locale=tmp)
+}
+
+### }}}
+### {{{ Dear Emacs
+## Local variables:
+## folded-file: t
+## End:
+### }}}
+
+###------------------------------------------------------------------------
+### runit.reorder.factor.R ends here


Property changes on: trunk/gdata/inst/unitTests/runit.reorder.factor.R
___________________________________________________________________
Name: svn:keyword
   + Id


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