several fixes

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

diff --git a/R/compar.gee.R b/R/compar.gee.R
index b2a9c1eb7eefa9acead17c37b1519b4507848b90..8c9bf868fafd23580dc6eabdcd1bb8e62a81aaec 100644 (file)
--- a/R/compar.gee.R
+++ b/R/compar.gee.R
@@ -45,7 +45,7 @@ compar.gee <-
     }
 
     id <- rep(1, dim(R)[1])
-    geemod <<- geemod <- do.call("gee", list(formula, id, data = data, family = family, R = R,
+    geemod <- do.call("gee", list(formula, id, data = data, family = family, R = R,
                                   corstr = "fixed", scale.fix = scale.fix,
                                   scale.value = scale.value))
     W <- geemod$naive.variance