From 25933a8465f2757a4461387edae1c02072be2c3a Mon Sep 17 00:00:00 2001
From: "Stephanie M. Gogarten" <sdmorris@uw.edu>
Date: Tue, 7 Nov 2023 22:17:26 -0800
Subject: [PATCH] fixes #77

---
 DESCRIPTION | 4 ++--
 R/spa.R     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 3be6934..6921dd3 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -3,8 +3,8 @@ Type: Package
 Title: GENetic EStimation and Inference in Structured samples
         (GENESIS): Statistical methods for analyzing genetic data from
         samples with population structure and/or relatedness
-Version: 2.33.0
-Date: 2021-08-23
+Version: 2.33.1
+Date: 2023-11-07
 Author: Matthew P. Conomos, Stephanie M. Gogarten,
 	Lisa Brown, Han Chen, Thomas Lumley, Kenneth Rice, Tamar Sofer, Adrienne Stilp, Timothy Thornton, Chaoyu Yu
 Maintainer: Stephanie M. Gogarten <sdmorris@uw.edu>
diff --git a/R/spa.R b/R/spa.R
index 0d9a393..139c1dd 100644
--- a/R/spa.R
+++ b/R/spa.R
@@ -21,7 +21,7 @@ SPA_pval <- function(score.result, nullmod, G, pval.thresh = 1){
 		# calculate the fitted values  from the null model;
                 # expit(eta) = expit(X\beta + Zb)
                 if (nullmod$model$family$mixedmodel) {
-                    mu <- as.vector(expit(nullmod$fit$linear.predictor))
+                    mu <- as.vector(plogis(nullmod$fit$linear.predictor))
                 } else {
                     # fitted.values from glm models are already the expit.
                     mu <- as.vector(nullmod$fit$fitted.values)