[Genabel-commits] r1962 - pkg/MixABEL/R

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

Author: lckarssen
Date: 2015-05-01 17:33:13 +0200 (Fri, 01 May 2015)
New Revision: 1962

Modified:
   pkg/MixABEL/R/fgls.R
Log:
Fix in MixABEL's fgls.R caaught by the unit tests: the name of a column in the out anova() function has apparently changed.


Modified: pkg/MixABEL/R/fgls.R
===================================================================
--- pkg/MixABEL/R/fgls.R	2015-05-01 12:56:35 UTC (rev 1961)
+++ pkg/MixABEL/R/fgls.R	2015-05-01 15:33:13 UTC (rev 1962)
@@ -480,7 +480,7 @@
                                         lm1 <- lm(mydata$Y ~ 0+XXX)
                                         #print(summary(lm1))
                                         #print(anova(lm0,lm1,test="Chisq"))
-                                        out$LM[k] <- anova(lm0,lm1,test="Chisq")$"P(>|Chi|)"[2]
+                                        out$LM[k] <- anova(lm0,lm1,test="Chisq")$"Pr(>Chi)"[2]
                                 }
                         } else {
                                 out$FGLS[k,] <- rep(NA,dim(out$FGLS[2]))