Nothing
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)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.