update for ape 2.1-2

[ape.git] / R / compar.gee.R

diff --git a/R/compar.gee.R b/R/compar.gee.R
index 9c52460198409835b7aea9042664b3132d2048b7..e9075a1f724adf6a86ea9676bfa312ab19db385a 100644 (file)
--- a/R/compar.gee.R
+++ b/R/compar.gee.R
@@ -31,7 +31,7 @@ do not match: the former were ignored in the analysis.")
                                   scale.value = scale.value))
     W <- geemod$naive.variance
     fname <-
-        if is.function(family) deparse(substitute(family)) else family
+        if (is.function(family)) deparse(substitute(family)) else family
     if (fname == "binomial")
       W <- summary(glm(formula, family = quasibinomial, data = data))$cov.scaled
     N <- geemod$nobs