R/print.ftrlprox.r

In FTRLProximal: FTRL Proximal Implementation for Elastic Net Regression

##------------------------------------------------------------------------------
#' Print a ftrlprox model
#' 
#' Print a text represenation of the ftrlprox model.
#' 
#' @param x The model object to print
#' @param digits the number of digits display in printout.
#' @param zero.print the symbol to use in place of zeros
#' @param ... additional args
#' 
#' @author Vilhelm von Ehrenheim
#' @import Matrix
#' @export
#' @method print ftrlprox
##------------------------------------------------------------------------------
print.ftrlprox <- function(x, digits=getOption("digits"), zero.print=".", ...) {
  rn <- names(x$theta)
  theta <- Matrix(x$theta, sparse=T)
  rownames(theta) <- rn

  cat("\nCoefficients:")
  printSpMatrix(theta, digits=digits, zero.print=zero.print)
  cat("\n")
}