R/summary.glmfm.R

In fit.models: Compare Fitted Models

#' Comparison Summaries for Generalized Linear Models
#' 
#' Compute a summary of each model in a \code{glmfm} object.
#' 
#' 
#' @param object a glmfm object.
#' @param correlation a logical value. If \code{TRUE}, correlation matrices of
#' the coefficient estimates are included in each summary.
#' @param \dots additional arguments required by the generic
#' \code{\link{summary}} function.
#' @return a list with class summary.glmfm whose elements are summaries of each
#' model in \code{object}.
#' @keywords regression methods
#' @examples
#' 
#' # From ?glm:
#' # A Gamma example, from McCullagh & Nelder (1989, pp. 300-2)
#' 
#' clotting <- data.frame(
#'     u = c(5,10,15,20,30,40,60,80,100),
#'     lot1 = c(118,58,42,35,27,25,21,19,18),
#'     lot2 = c(69,35,26,21,18,16,13,12,12))
#' 
#' lot1 <- glm(lot1 ~ log(u), data = clotting, family = Gamma)
#' lot2 <- glm(lot2 ~ log(u), data = clotting, family = Gamma)
#' 
#' fm <- fit.models(lot1, lot2)
#' summary(fm)


#' @export
summary.glmfm <- function(object, correlation = FALSE, ...)
{
  object <- lapply(object, summary, correlation = correlation, ...)
  oldClass(object) <- "summary.glmfm"
  object
}