R/print.SGL.R

In SGL: Fit a GLM (or Cox Model) with a Combination of Lasso and Group Lasso Regularization

Defines functions print.SGL

Documented in print.SGL

print.SGL = function(x, digits = max(3, getOption("digits") - 3), ...){
  num.nonzero <- apply(x$beta,2, function(z){sum(z != 0)})
  cat("\n regression type: ", x$type, "\n\n")
  print(cbind(lambdas = x$lambdas, num.nonzero = num.nonzero))
}

Try the SGL package in your browser