R/tr.R
In ThreeWay: Three-Way Component Analysis

tr <-
function(a){

p=nrow(a)
q=ncol(a)
if (p==q){
	t=sum(diag(a))
}
return(t)
}

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

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

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the ThreeWay package in your browser