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.
|
