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);