R/print.rmlr.R

Defines functions print.rmlr

print.rmlr <- function(x, ...){
  if (x$Penalization==0)
    cat("Ridge Multinomial Logistic Regression\n")
  else{
  cat("Ridge Multinomial Logistic Regression\n")
  cat("Penalization : ", x$Penalization,"\n\n")}
  cat("Coefficients :\n")
  print(x$beta)
  cat("\n")
  cat("Residual Deviance: ", x$Difference,"\n")
  cat("AIC: ", x$AIC,"\n")
  cat("BIC: ", x$BIC,"\n")
}

Try the MultBiplotR package in your browser

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

MultBiplotR documentation built on Nov. 21, 2023, 5:08 p.m.