R/make_ru.R

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

Any scripts or data that you put into this service are public.

dglars documentation built on Oct. 9, 2018, 5:04 p.m.