"Deutsch", "Englisch", "Kunst")) tab fit <- ca(tab) svg("BiplotCA.svg") plt <- plot(fit, main="Biplot für die Korrespondenzanalyse") m <- 0.95 for (i...
