R/print.summary.lmridge.R

In lmridge: Linear Ridge Regression with Ridge Penalty and Ridge Statistics

print.summary.lmridge <-
  function(x, digits = max(3, getOption("digits") - 3),
           signif.stars = getOption("show.signif.stars"), ...) {

    summaries <- x$summaries
    cat("\nCall:\n", paste(deparse(x$call), sep = "\n", collapse = "\n"), "\n\n", sep = "")

    for (i in seq(length(summaries))) {
      CSummary <- summaries[[i]]

      cat("\nCoefficients: for Ridge parameter K=", CSummary$K, "\n")
      coefs <- CSummary$coefficients


      printCoefmat(
        round(coefs, digits=digits),
        signif.stars = signif.stars,
        P.values = TRUE,
        has.Pvalue = TRUE,
        #na.print = "NA",
        ...
      )
      cat("\nRidge Summary\n")
      print(drop(CSummary$stats))
      cat("Ridge minimum MSE=", CSummary$rmse1, "at K=", CSummary$rmse2, "\n")
      cat("P-value for F-test (", CSummary$df1[i], ",",  CSummary$df2[i],") =",  CSummary$fpvalue[i], "\n")
      cat("-------------------------------------------------------------------\n\n")
      invisible(x)
    }
  }