commit 6505ccf486e1d4448007042d26cfcafaa9ff2069
author Marc Kupietz <kupietz@ids-mannheim.de> Sat Nov 27 17:46:25 2021 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Sat Nov 27 17:48:22 2021 +0100
tree 3038ee9dc3143c671fc2b9194763d9485f595d48
parent 841abd77c4c18b4e69defdf8c9b91d55dc344428

Do not allow repeated nodes in collocation analysis

Change-Id: I19e5db6dc40ae7a25f9eddff4325a71846dcaf6f

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index bf962f6..eb691f8 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -76,7 +76,7 @@
                    ignoreCollocateCase = FALSE,
                    withinSpan = ifelse(exactFrequencies, "base/s=s", ""),
                    exactFrequencies = TRUE,
-                   stopwords = RKorAPClient::synsemanticStopwords(),
+                   stopwords = append(RKorAPClient::synsemanticStopwords(), node),
                    seed = 7,
                    expand = length(vc) != length(node),
                    ...) {

man/collocationAnalysis-KorAPConnection-method.Rd

diff --git a/man/collocationAnalysis-KorAPConnection-method.Rd b/man/collocationAnalysis-KorAPConnection-method.Rd
index 8ee0418..bc720ca 100644
--- a/man/collocationAnalysis-KorAPConnection-method.Rd
+++ b/man/collocationAnalysis-KorAPConnection-method.Rd
@@ -18,7 +18,7 @@
   ignoreCollocateCase = FALSE,
   withinSpan = ifelse(exactFrequencies, "base/s=s", ""),
   exactFrequencies = TRUE,
-  stopwords = RKorAPClient::synsemanticStopwords(),
+  stopwords = append(RKorAPClient::synsemanticStopwords(), node),
   seed = 7,
   expand = length(vc) != length(node),
   ...