iramuteq.org Git - iramuteq/blob - Rlib/textometrieR/tests/ca.R

   1 table <- read.table("clipboard");
   2 myca <- ca(table)
   3
   4 myca$rowmass
   5 myca$rowdist
   6 myca$rowinertia
   7 myca$rowcoord
   8
   9 myca$colmass
  10 myca$coldist
  11 myca$colinertia
  12 myca$colcoord
  13
  14 plot(myca, dim = c(1,2), map = "symmetric", what = c("all", "all"), mass = c(TRUE, TRUE), contrib = c("relative", "relative"), col = c("#0000FF", "#FF0000"))
  15 mtext("side1", side = 1, line = 2);
  16 mtext("side2", side = 2, line = 2)
  17
  18
  19 table[order(table[ ,1]), ];
  20 plot3d.ca(ca(table, nd=3))