textometrieR

[iramuteq] / Rlib / textometrieR / data / robespierre.R

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