R/make_action.R

In dglars: Differential Geometric Least Angle Regression

Defines functions make_action

Documented in make_action

make_action <- function(beta,np){
	vn <- rownames(beta)
	id <- abs(beta)>0
	mdl.list <- apply(id,2,function(z) vn[z])
	if(np==1) action <- "Int."
	else {
		action <- rep("",length=np)
		for(j in 2:np) action[j-1] <- setDiff(mdl.list[[j]],mdl.list[[j-1]])
	}
	action
}

Try the dglars package in your browser