[Genabel-commits] r1241 - pkg/GenABEL/inst/unitTests

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

Author: lckarssen
Date: 2013-06-03 14:29:37 +0200 (Mon, 03 Jun 2013)
New Revision: 1241

Modified:
   pkg/GenABEL/inst/unitTests/runit.exports.R
Log:
Fixed the unit tests for export.plink(). Because the default value of the transpose option changed some time ago (default was FALSE, but is TRUE now) the tests were broken. 


Modified: pkg/GenABEL/inst/unitTests/runit.exports.R
===================================================================
--- pkg/GenABEL/inst/unitTests/runit.exports.R	2013-06-03 12:22:51 UTC (rev 1240)
+++ pkg/GenABEL/inst/unitTests/runit.exports.R	2013-06-03 12:29:37 UTC (rev 1241)
@@ -28,8 +28,8 @@
   dta <- ge03d2.clean[sort(sample(1:nids(ge03d2.clean), nTestIds)),
                       sort(sample(1:nsnps(ge03d2.clean), nTestSnps))]
 
-  export.plink(dta, filebasename="tmpOld", dpieceFun="old")
-  export.plink(dta, filebasename="tmpNew", dpieceFun="new")
+  export.plink(dta, filebasename="tmpOld", dpieceFun="old", transpose=FALSE)
+  export.plink(dta, filebasename="tmpNew", dpieceFun="new", transpose=FALSE)
   xO <- read.table(file="tmpOld.ped", head=FALSE, strings=FALSE)
   xN <- read.table(file="tmpNew.ped", head=FALSE, strings=FALSE)
   checkIdentical(xN, xO)