R/print.summary.monthglm.R

In season: Seasonal analysis of health data

Defines functions print.summary.monthglm

Documented in print.summary.monthglm

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, ...)
}

Try the season package in your browser