R/projection.R

In ldr: Methods for likelihood-based dimension reduction in regression

Defines functions projection

Documented in projection

projection <-
function(alpha, Sigma) 
{
	return(alpha%*%solve(t(alpha)%*%Sigma%*% alpha)%*%t(alpha)%*% Sigma)
}

Try the ldr package in your browser