...
[iramuteq] / Rlib / textometrieR / data / robespierre.R
1 de         <- c(464, 165, 194, 392, 398, 235, 509, 96, 58, 662);
2 peuple     <- c(45,   18,  15,  14,  53,  30,  42, 16,  4, 59 );
3 republique <- c(35,   10,  16,  29,  29,   9,  21, 14,  2, 42 );
4 ennemi     <- c(30,   13,  11,  19,  22,  10,  16,  7,  2, 35 );
5 patrie     <- c(6,     5,  16,   8,  23,  10,  35,  8,  3, 39 );
6
7 robespierre <- matrix(c(de, peuple, republique, ennemi, patrie, rep(0, 10)), nrow=6, byrow=TRUE)
8 tokens <- c("de", "peuple", "republique", "ennemi", "patrie");
9 rownames(robespierre) <- c(tokens, "others");
10 colnames(robespierre) <- paste("D", 1:10, sep="");
11
12 partSize <- c(8395, 2558, 3920, 6903, 7896, 4555, 10142, 2063, 1084, 13933);
13 robespierre[6,] <- partSize - colSums(robespierre);
14
15 rm(list=c(tokens, "partSize"));
16 rm("tokens");
17