R/coord.R

In CA3variants: Three-Way Correspondence Analysis Variants

Defines functions coord

Documented in coord

coord <- function(res, x){

     x <- x/sum(x)
     pi <- margI(x)
     pj <- margJ(x)
     pk <- margK(x)
     res$a <- diag(1/sqrt(pi)) %*% 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