R/print.summary.chenreg.R

In AlissonRP/chenReg: Quantile Regression using Chen Distribution

#' print.summary.chenreg

#' @param x  a model created by `chen_reg`
#' @param ... further arguments passed to or from other methods.
#' @rdname print.summary.chenreg
#' @export print.summary.chenreg
#' @export
#'
#'
print.summary.chenreg <-
  function(x,...) {

    if(x$format == TRUE){
      print(structure((x$coefficients)))
    } else {
    cat("\nCall:\n",
      paste(deparse(x$call), sep = "\n", collapse = "\n"), "\n",
      sep = ""
    )


    cat("\nResiduals:\n")
    print(structure((as.vector((x$res))),
      .Names = c("Min", "1Q", "Median", "3Q", "Max")
    ))

    cat("\nCoefficients:\n")
    print(structure((x$coefficients)))

    cat("---\n")


    cat("\n")

    cat(paste0("Log-likelihood: ", round(x$loglik, 4)), "\n")
    cat(c("Number of iterations in BFGS optim:", x$counts), "\n")
    cat(
      c("AIC:", round(x$metrics$aic, 4), " BIC:", round(x$metrics$bic, 4)),
      " RMSE:", round(x$metrics$rmse, 4), "\n"
    )
    cat(c("Pseudo R-squared:", round(x$metrics$r2, 4)))
    }
  }