textometrieR

[iramuteq] / Rlib / textometrieR / tests / specificites.lexicon.new.R

diff --git a/Rlib/textometrieR/tests/specificites.lexicon.new.R b/Rlib/textometrieR/tests/specificites.lexicon.new.R
new file mode 100644 (file)
index 0000000..5cfd41e
--- /dev/null
+++ b/Rlib/textometrieR/tests/specificites.lexicon.new.R
@@ -0,0 +1,8 @@
+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);