Computes the trace of the sample cross product matrix.
traceW(x)
x
data(iris) traceW(as.matrix(iris[,1:4]))