R/print.glmnetcr.R

In kelliejarcher/glmnetcr: Fit a Penalized Constrained Continuation Ratio Model for Predicting an Ordinal Response

Defines functions print.glmnetcr

Documented in print.glmnetcr

print.glmnetcr <-
function(x,digits = max(3, getOption("digits") - 3),...){
	cat("\nCall: ", deparse(x$call), "\n\n")
	
	print(cbind(Df=x$df,"%Dev"=signif(x$dev.ratio,digits),Lambda=signif(x$lambda,digits)))
}