R/make_coef.R

In dglars: Differential Geometric Least Angle Regression

Defines functions make_coef

Documented in make_coef

make_coef <- function(object){
	bhat <- object$b
	np <- object$np
	p <- object$p
	bhat.mat <- Matrix(bhat, nrow = p + 1, sparse = TRUE)
	bhat.mat <- bhat.mat[, 1:np, drop=FALSE]
	vname <- c("Int.",colnames(object$X))
	rownames(bhat.mat) <- vname
	bhat.mat
}

Try the dglars package in your browser