[R] glmm?

[Spencer Graves]

      Is there an easy way to get confidence intervals from "glmm" in 
Jim Lindsey's library(repeated)?  Consider the following slight 
modification of an example from the help page: 

 >  df <- data.frame(r=rbinom(10,10,0.5), n=rep(10,10), x=c(rep(0,5),
+              rep(1,5)), nest=1:10)
 > fit <- glmm(cbind(r,n-r)~x, family=binomial, nest=nest, data=df)
 > summary(fit)
Error in print.summary.glmm(structure(list(call = glmm(cbind(r, n - r) ~  :
        couldn't find function "print.summary.glm"
 > confint(fit)
Waiting for profiling to be done...
Error in glmm(cbind(r, n - r) ~ x, family = binomial, nest = nest, data 
= df,  :
        unused argument(s) (method ...)

      I'm running R 1.9.0pat under Windows 2000. 

      Thanks,
      spencer graves