R/summary.NegBinBetaBinreg.R

summary.NegBinBetaBinreg <-
function(object, ...){
  
  se <- object$desv
  
  TAB <- cbind( Coefficient = coef(object),
                Desv. = se,
                L.CredIntv = object$interv[,1],
                U.CredIntv = object$interv[,2]
  )
  
  colnames(TAB) <- c("Estimate", "Est.Error", "L.CredIntv",  "U.CredIntv")
  
  
  criteria <- criteria(object$X)
  
  res <- list(call=object$call, coefficients=TAB, AIC=criteria$AIC, BIC=criteria$BIC)  
  
  class(res) <- "summary.NegBinBetaBinreg"
  res  
}

Try the NegBinBetaBinreg package in your browser

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

NegBinBetaBinreg documentation built on May 2, 2019, 10:52 a.m.