Merge "Do not allow repeated nodes in collocation analysis"
diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 36c7460..a2d6c5d 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -82,7 +82,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),
                    maxRecurse = 0,
diff --git a/man/collocationAnalysis-KorAPConnection-method.Rd b/man/collocationAnalysis-KorAPConnection-method.Rd
index 1105fef..2a646f8 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),
   maxRecurse = 0,