blob: 549815b93ad52e7b4a759f261137bbcfbde98d54 (
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 x a "sparsestep" object to print
#' @param ... further argument are ignored
#'
#' @export
#'
#' @aliases print
#'
#' @examples
#' x <- matrix(rnorm(100*20), 100, 20)
#' y <- rnorm(100)
#' fit <- sparsestep(x, y)
#' print(fit)
#'
print.sparsestep <- function(x, ...)
{
cat("\nCall:\n")
dput(x$call)
cat("Lambda:", x$lambda, "\n")
invisible(x)
}
|
