...
[iramuteq] / Rlib / textometrieR / tests / bfmrepartition.R
1 library("textometrieR")
2
3 x1 <- c(100, 133, 284, 482, 568, 667, 838, 878, 957, 1030, 1102, 1122, 1204, 1344, 1459, 1704, 1932, 2134, 2168, 2270, 2400, 3052, 3508, 3619, 3680, 3703, 4066, 4124, 4167, 4299, 5000, 5041, 5102, 5773, 5870, 7042, 7104, 7452, 7475, 7511, 8043, 8068, 8363, 8531, 8736, 9035, 9036, 9099, 9308, 9656, 9890, 9956, 10153, 23533, 23561, 23843, 23992, 24120, 24571, 24591, 24717, 24757, 25048, 25393, 25407, 25542, 25716, 25741, 25836, 25867, 26207, 26523, 26641, 26662, 27307, 27488, 27616, 27788, 27927, 27937, 28532, 28609, 29412, 29870, 29902, 30054, 30239, 30258, 30278, 30394, 33873, 49658, 49696, 49728, 50139, 50155, 50232, 50361, 50366, 50397, 50452, 50812, 51012, 51097, 51184, 51313, 52481, 52527, 52619, 52741, 52979, 55049, 55151, 55384, 55394, 55655, 56138, 56231, 56495, 56807, 56851, 57040, 57149, 57245, 57287, 57409, 57461, 57519, 59175, 59354, 59540, 59652, 59687, 59838, 60456, 60461, 60886, 61212, 61344, 61345, 62173, 62575, 62609, 62717, 63306, 64136, 64174, 64545, 67604, 67732, 67777, 67938, 69307, 70442, 76990, 77178, 77234, 86003, 104435, 104451, 104562, 104653, 104935, 105117, 105251, 105324, 105361, 105419, 105446, 105498, 105657, 105785, 105874, 105919, 105986, 106108, 106258, 106388, 106457, 106615, 106691, 106813, 106833, 107260, 107379, 107387, 107688, 107778, 107873, 108020, 108145, 108240, 108316, 108430, 108459, 108601, 108646, 108940, 109193, 109382, 109543, 109558, 109582, 109703, 109822, 109960, 110059, 110154, 110236, 110325, 110346, 110397, 110416, 110754, 111019, 111097, 111118, 111278, 111308, 111473, 111648, 111663)
4
5 x2 <- c(622, 1139, 3616, 3781, 4122, 4215, 4241, 4373, 4551, 4777, 4820, 5513, 5547, 5632, 5816, 7997, 8470, 8495, 9561, 9592, 10197, 10935, 10952, 11182, 11315, 11442, 11811, 11875, 11909, 12233, 12718, 12847, 12977, 13016, 13070, 13177, 13226, 13255, 13294, 13386, 14512, 14772, 14812, 14853, 14900, 15122, 15247, 15279, 15305, 15383, 15558, 15625, 15673, 15728, 15788, 16301, 16750, 16766, 16832, 16936, 17016, 17069, 17138, 17154, 17264, 17315, 17377, 17400, 17739, 17759, 17924, 17970, 18002, 18036, 18094, 18122, 18249, 18424, 18472, 18534, 18614, 18643, 18696, 18771, 19224, 19431, 19511, 19763, 19822, 19878, 20052, 20075, 20088, 20224, 20889, 20982, 21321, 21364, 21386, 21422, 21499, 21533, 21691, 21767, 21800, 22431, 22500, 23029, 23264, 23495, 23503, 23575, 23704, 23748, 33982, 36737, 49559, 59023, 59230, 59248, 61748, 63362, 66998, 83960, 84153, 84953, 85043, 85059, 85100, 85409, 85535, 85773, 85901, 85993, 86639, 86768, 87277, 87415, 87916, 89597, 96699, 96959, 97196, 97275, 97359, 97422, 97524, 97590, 98146, 98285, 98471, 98608, 98709, 98878, 99372, 99506, 99737, 99797, 100700, 100978, 101026, 101256, 101295, 101335, 101980, 102644, 103107, 103557, 103743, 104270, 104363, 105115, 105144, 105200, 105232, 105886, 105933, 106288, 106464, 106590, 106726, 106835, 107072, 107185, 107267, 107322, 107358, 110388, 111645, 111658, 111773, 111895, 112068, 112123, 112237, 112278, 112505, 112506, 112684, 112763, 112798, 113126, 113248, 113405, 113443, 113773, 113835, 113945, 114601, 114948, 115050, 115458, 115624, 115967, 116042, 116132, 116411, 116459, 116501, 116550, 116748, 116804, 116879, 117093, 117113, 117153, 117244, 117291, 117603, 117794, 117860, 117965, 118026, 118148, 118177, 118321, 118354, 118406, 118492, 118636)
6
7 x3 <- c(23535, 23613, 23862, 24039, 24079, 24114, 30381, 30389, 30516, 30710, 30844, 31121, 31249, 33622, 33639, 33774, 34016, 34077, 34260, 34411, 34745, 34889, 34987, 35143, 36797, 36941, 37349, 37374, 37410, 37462, 37480, 37532, 37623, 37707, 38016, 38096, 38145, 38201, 38233, 38286, 38348, 38408, 38519, 38584, 38626, 38705, 38789, 39135, 39197, 39301, 39369, 39420, 39622, 39663, 40005, 40022, 40356, 40518, 40703, 41101, 41139, 41214, 41325, 41328, 41455, 41478, 41481, 41714, 41832, 41960, 42011, 42120, 42149, 42201, 42353, 42683, 42708, 42787, 42868, 42989, 43011, 43071, 43139, 43273, 43901, 44507, 44661, 44953, 44967, 45151, 45595, 45929, 46487, 46490, 46579, 46937, 47122, 47345, 47359, 47402, 47708, 47793, 47962, 48171, 48339, 48845, 48961, 49186, 49271, 49307, 49501, 61763, 63365, 67000, 83037, 83180, 83593, 83655, 83696, 83731, 83799, 85512, 85828, 86397, 86537, 87204, 87451, 88434, 88550, 96577, 96625, 96685, 96770, 97588, 98119, 99696, 99730, 99740, 100695, 100855, 101081, 101829, 102513, 102520, 102654, 102984, 103052, 103745, 104268, 105086, 105148, 112845, 113085, 113349, 115389, 116507, 116750, 117040, 117089, 117385, 118324, 118487, 118561, 118612)
8
9 x4 <- c()
10
11 structure <- c(10000, 25000, 30000, 49557, 73805, 103550, 110000)
12 snames <- c("pas tres", "spo tres", "s333333333333333333", "s4444444444444444444", "s555555555555555", "s666666666666", "s7")
13
14 positions = list(x1, x2, x3, x4)
15
16 colors = c("blue", "red", "black", "grey")
17 styles = c(1,2,3,4)
18 widths = c(2,2,2,2)
19
20 names = c("Lancelot", "Galaad", "Perceval", "Boort")  
21
22 corpusname = "Graal"
23 Xmin = 0
24 Xmax = 119000
25
26 #library("RSvgDevice");
27 #devSVG("/home/mdecorde/Bureau/test.svg")
28 printrepartition(positions, names, colors, styles, widths, corpusname, Xmin, Xmax, "true", structure, snames, "Graph test de rĂ©partition titre donnĂ© par TXM normalement", 1000)
29 #dev.off();