R/make_ru.R

In dglars: Differential Geometric Least Angle Regression

Defines functions make_ru

Documented in make_ru

make_ru <- function(object){
	ru <- object$ru
	np <- object$np
	p <- object$p
	nav <- object$nav
	A <- object$A[1:nav]
	ru <- Matrix(ru[1:(p*np)], nrow = p, ncol = np, sparse = FALSE)
	rownames(ru) <- colnames(object$X)
	ru[sort(A),]
}

Try the dglars package in your browser