From ad867c9e47c63d4b013d93538c78512821c9659f Mon Sep 17 00:00:00 2001
From: Yungang Xu <xuyungang84@gmail.com>
Date: Tue, 28 May 2019 10:58:41 -0400
Subject: [PATCH] Update GLiMMPS_functions.R

---
 GLiMMPS_functions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/GLiMMPS_functions.R b/GLiMMPS_functions.R
index 97f4192..8bd227f 100644
--- a/GLiMMPS_functions.R
+++ b/GLiMMPS_functions.R
@@ -93,7 +93,7 @@ glmmWald.sQTL <- function(data) {
   if ( !( inherits(testglm,"try-error")  )) { # only when it converges
     betas <-fixef(testglm)
     if (!is.na(fixef(testglm)[2])) {
-      snp.pval <-  summary(testglm)@coefs[2,4]
+      snp.pval <-  summary(testglm)$coefficients[2,4]
     }
   }
   #psi.fitted <- results$fitted.value