R/ICAorthW.R

In ProDenICA: Product Density Estimation for ICA using Tilted Gaussian Density Estimates

Defines functions ICAorthW

Documented in ICAorthW

ICAorthW <-
function(W)
{
	sW <- svd(W)
	sW$u %*% t(sW$v)
}

Try the ProDenICA package in your browser