R/print.cv.l1.reg.R

In CDLasso: Coordinate Descent Algorithms for Lasso Penalized L1, L2, and Logistic Regression

print.cv.l1.reg <-
function (x, ...)
{
  cat ("\n Call: \n")
  print (x$call)
  
  cat ("\n Selected Coefficient Estimates: \n")
  print (cbind(Lambda=x$lam.vec,"# Selected"=x$num.pred, "CV Error"=x$mean.error),justify="centre")
  
  cat ("\n Optimal Lambda: \n")
  print (x$lam.opt)
}