powered by
m
tdecomp(m)
discrcoord
x <- rnorm(10) y <- rnorm(10) z <- cov(cbind(x,y)) round(tdecomp(z),digits=2)
Run the code above in your browser using DataLab