R/coordnsc3.R

In CA3variants: Three-Way Correspondence Analysis Variants

Defines functions coordnsc3

Documented in coordnsc3

coordnsc3<-function(res, x)
{
	x <- x/sum(x)	#       pi <- margI(x)
	pj <- margJ(x)
	pk <- margK(x)
	res$a <- res$a
	res$b <- diag(1/sqrt(pj)) %*% res$b
	res$cc <- diag(1/sqrt(pk)) %*% res$cc
	res
}

Try the CA3variants package in your browser