R/summary.mlcm.R

Defines functions `summary.mlcm`

`summary.mlcm` <-
function(object, 
	digits = max(3, getOption("digits") - 4), ...){
  z <- object
  ans <- list()
  ans$pscale <- z$pscale	
  ans$se <- if(z$method == "glm") 
  		coef(summary(z$obj))[, 2] else
  		object$se  
  ans$sigma <- z$sigma
  ans$logLik <- logLik(z)[1]
  ans$aic <- AIC(z)	
  ans$link <- z$link
  ans$method <- z$method
  ans$par <- z$par
  ans$model <- z$model
  ans$formula <- z$formula
  class(ans) <- "summary.mlcm"
  ans
}

Try the MLCM package in your browser

Any scripts or data that you put into this service are public.

MLCM documentation built on March 18, 2022, 7:31 p.m.