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

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

Author: lckarssen
Date: 2015-05-15 18:45:35 +0200 (Fri, 15 May 2015)
New Revision: 1976

Modified:
   pkg/MixABEL/inst/unitTests/runit.GWFGLS.R
Log:
Summary: Revert change made in r1970 to MixABEL unit test.
The error leading to r1970 was not caused by what I thought was a wrong dimentionality of the aIR$FGLS matrix. Probably the error I saw back then was because no rows had "passed".


Modified: pkg/MixABEL/inst/unitTests/runit.GWFGLS.R
===================================================================
--- pkg/MixABEL/inst/unitTests/runit.GWFGLS.R	2015-05-14 15:58:46 UTC (rev 1975)
+++ pkg/MixABEL/inst/unitTests/runit.GWFGLS.R	2015-05-15 16:45:35 UTC (rev 1976)
@@ -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()