R/nonzero.glmnetcr.R

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

Defines functions nonzero.glmnetcr

Documented in nonzero.glmnetcr

nonzero.glmnetcr <-
function(fit,s) {
	a0<-fit$a0[s]
	beta<-fit$beta[,s]
	beta<-beta[beta!=0]
	list(a0=a0,beta=beta)
}