R Under development (unstable) (2026-01-10 r89298 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(textometry);
> #               A  D  G  J  B  C
> sublexicon <- c(1, 2, 1, 3, 2, 1);
> names(sublexicon) <- c("A", "D", "G", "J", "B", "C");
> #            A  B  C  D  E  F  G  H  I  J  K  L  M
> lexicon <- c(1, 2, 1, 3, 2, 1, 2, 2, 2, 4, 1, 3, 4);
> names(lexicon) <- LETTERS[1:length(lexicon)];
> 
> specificities.lexicon.new(lexicon, sublexicon);
  sublexicon complementary
A     0.4472       -0.4472
B     0.9243       -0.9243
C     0.4472       -0.4472
D     0.5469       -0.5469
E    -0.3928        0.3928
F    -0.1919        0.1919
G     0.2253       -0.2253
H    -0.3928        0.3928
I    -0.3928        0.3928
J     0.9365       -0.9365
K    -0.1919        0.1919
L    -0.6037        0.6037
M    -0.8255        0.8255
> 
> proc.time()
   user  system elapsed 
   0.20    0.10    0.23