R/ICAorthW.R

In Hanchao-Zhang/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)
}