X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fcompar.gee.R;h=f8a7b6ae43e217c51b79e8e79890f19021141358;hb=d88302b4735b5b7c9132387090bb592d906fe1cb;hp=ecaa79aa9235a7cc5667101f261e3a9603f10725;hpb=2e3b8be33765d5311e071efb39871249d16f7e30;p=ape.git

diff --git a/R/compar.gee.R b/R/compar.gee.R
index ecaa79a..f8a7b6a 100644
--- a/R/compar.gee.R
+++ b/R/compar.gee.R
@@ -1,8 +1,8 @@
-## compar.gee.R (2006-10-11)
+## compar.gee.R (2008-01-14)
 
 ##   Comparative Analysis with GEEs
 
-## Copyright 2002-2006 Emmanuel Paradis
+## Copyright 2002-2008 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -10,6 +10,7 @@
 compar.gee <- function(formula, data = NULL, family = "gaussian", phy,
                        scale.fix = FALSE, scale.value = 1)
 {
+    require(gee, quietly = TRUE)
     if (is.null(data)) data <- parent.frame() else {
         if(!any(is.na(match(rownames(data), phy$tip.label))))
           data <- data[phy$tip.label, ]