print.summary.monthglm <- function(x, ...){
  ## report results
  cat('Number of observations =',x$n,'\n')
  if (x$month.effect=="RR"){
    cat('Rate ratios','\n')
  }
  if (x$month.effect=="OR"){
    cat('Odds ratios','\n')
  }
  print(x$month.ests, ...)
}