R/nonzero.coef.R

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

Defines functions nonzero.coef

Documented in nonzero.coef

nonzero.coef <-
function(object, s) {
	estimates<-coef(object,s=s)
	keep<-estimates[estimates!=0]
	names(keep)<-dimnames(estimates)[[2]][estimates!=0]
	keep
	}