[Genabel-commits] r1970 - pkg/MixABEL/inst/unitTests

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

Author: lckarssen
Date: 2015-05-11 21:10:35 +0200 (Mon, 11 May 2015)
New Revision: 1970

Modified:
   pkg/MixABEL/inst/unitTests/runit.GWFGLS.R
Log:
Fix error due to incorrect subsetting in one of MixABEL's unit tests.


Modified: pkg/MixABEL/inst/unitTests/runit.GWFGLS.R
===================================================================
--- pkg/MixABEL/inst/unitTests/runit.GWFGLS.R	2015-05-11 15:03:59 UTC (rev 1969)
+++ pkg/MixABEL/inst/unitTests/runit.GWFGLS.R	2015-05-11 19:10:35 UTC (rev 1970)
@@ -172,7 +172,7 @@
     }
     aIR$FGLS <- aIR$FGLS[passed,]
     aIR$LM <- aIR$LM[passed]
-    checkEqualsNumeric(aIR$LM,aIR$FGLS[,"P-value"],tolerance=5*.Machine$double.eps^0.5)
+    checkEqualsNumeric(aIR$LM,aIR$FGLS["P-value"],tolerance=5*.Machine$double.eps^0.5)
   }
   
   rm(list=ls());gc()