R/coef2fd.R

coef2fd <- function(beta, basis, byrow = TRUE)
{
	if (!is.matrix(beta))
		return(as.vector(basis$B %*% (basis$invsqrtM %*% beta)))
    if (byrow) 
        return(tcrossprod(beta %*% basis$invsqrtM, basis$B))
    return(basis$B %*% (basis$invsqrtM %*% beta))
}

Try the onlinePCA package in your browser

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

onlinePCA documentation built on May 2, 2019, 3:28 a.m.