--- /dev/null
+library(textometrieR);
+sublexicon <- c(1, 2, 1, 3, 2, 1);
+names(sublexicon) <- c("A", "D", "G", "J", "B", "C");
+
+lexicon <- c(1, 2, 1, 3, 2, 1, 2, 2, 2, 2, 1, 3, 4);
+names(lexicon) <- LETTERS[1:length(lexicon)];
+
+specificites.lexicon.new(lexicon, sublexicon);