From 904e559845f48f38c7eb928d65876e3a064a17c7 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Wed, 10 Feb 2016 15:27:35 -0500
Subject: add documentation, unify implementations of path and fit

---
 R/print.sparsestep.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/R/print.sparsestep.R b/R/print.sparsestep.R
index 1de1370..336d705 100644
--- a/R/print.sparsestep.R
+++ b/R/print.sparsestep.R
@@ -6,6 +6,8 @@
 #'
 #' @export
 #'
+#' @aliases print
+#'
 #' @examples
 #' data(diabetes)
 #' attach(diabetes)
@@ -17,8 +19,6 @@ 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")
+	cat("Lambda:", obj$lambda, "\n")
 	invisible(obj)
 }
-- 
cgit v1.2.3