From 67f05f68ce525200dc70b27f36fc985a7f2fc87a Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Mon, 8 Feb 2016 14:19:09 -0500
Subject: initial commit

---
 R/print.sparsestep.R | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 R/print.sparsestep.R

(limited to 'R/print.sparsestep.R')

diff --git a/R/print.sparsestep.R b/R/print.sparsestep.R
new file mode 100644
index 0000000..1de1370
--- /dev/null
+++ b/R/print.sparsestep.R
@@ -0,0 +1,24 @@
+#' @title Print the fitted SparseStep model
+#'
+#' @description Prints a short text of a fitted SparseStep model
+#'
+#' @param obj a "sparsestep" object to print
+#'
+#' @export
+#'
+#' @examples
+#' data(diabetes)
+#' attach(diabetes)
+#' object <- sparsestep(x, y)
+#' print(object)
+#' detach(diabetes)
+#'
+print.sparsestep <- function(obj, ...)
+{
+	cat("\nCall:\n")
+	dput(obj$call)
+	cat("R-squared:", format(round(rev(obj$R2)[1], 3)), "\n")
+	zeros <- length(which(obj$beta == 0))/length(obj$beta)*100.0
+	cat("Percentage coeff zero:", format(round(zeros, 2)), "\n")
+	invisible(obj)
+}
-- 
cgit v1.2.3