R/summary.sparsenet.R

In sparsenet: Fit Sparse Linear Regression Models via Nonconvex Optimization

Defines functions summary.sparsenet

Documented in summary.sparsenet

summary.sparsenet=function(object,digits = max(3, getOption("digits") - 3),...){
  cat("\nCall: ", deparse(object$call), "\n\n")
  coeflist=object$coefficients
  rsq=object$rsq
  gnames=names(coeflist)
  dfmat=sapply(coeflist,"[[","df")
  list(Rsq=t(signif(rsq,digits)),Df=dfmat)
}

Try the sparsenet package in your browser