Update GLiMMPS_functions.R

Xinglab · May 28, 2019 · ad867c9 · ad867c9
1 parent ef63235
commit ad867c9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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