blob: 1de137010c77da869ca0f9879d0435e59013aa93 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)
}
|
