diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-02-10 15:27:35 -0500 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-02-10 15:27:35 -0500 |
| commit | 904e559845f48f38c7eb928d65876e3a064a17c7 (patch) | |
| tree | 1d4153ad46cfe94bda2bd5dc3105acf67b2dc994 /R/print.sparsestep.R | |
| parent | redefine gamma to correspond to theory (diff) | |
| download | sparsestep-904e559845f48f38c7eb928d65876e3a064a17c7.tar.gz sparsestep-904e559845f48f38c7eb928d65876e3a064a17c7.zip | |
add documentation, unify implementations of path and fit
Diffstat (limited to 'R/print.sparsestep.R')
| -rw-r--r-- | R/print.sparsestep.R | 6 |
1 files changed, 3 insertions, 3 deletions
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) } |