R/Cc.R

Cc <-
function(A){

A=as.matrix(A)
Ac=A-matrix(1,nrow(A),1)%*%SUM(A)$mc
return(Ac)
}

Try the ThreeWay package in your browser

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

ThreeWay documentation built on May 2, 2019, 9:20 a.m.