matrices top lines by digit sum.svg. This matrix is nearly symmetrical to the subdiagonal. Apart from the centered rows and columns 33, 34 and 37 (slightly
http://en.wikipedia.org/wiki/Image:Matrix_multiplication_diagram.svg I removed the last row of matrix a and resulting matrix. The previous matrices could not
ca(tab) svg("BiplotCA.svg") plt <- plot(fit, main="Biplot für die Korrespondenzanalyse") m <- 0.95 for (i in 1:nrow(plt$rows)) { arrows(0,0, m*plt$rows[i,1]