commit 77852b2af68bdb578421aea4efb97ef2fa51320d
author Marc Kupietz <kupietz@ids-mannheim.de> Sun Oct 19 11:35:34 2025 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Sun Oct 19 15:02:21 2025 +0200
tree 63a2852821497543071202e6e4a65431b0809934
parent 130a2a29eb3b593878dc2ac410e8a2b716d64e01

Remove redundant thresholdScore parameter from add_multi_vc_comparisons function

Change-Id: I3a0077497f52d94e0b63d90bca0812c7e3d0c9d6

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index b7c5be6..69d2208 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -196,7 +196,6 @@
 
         multi_result |>
           add_multi_vc_comparisons(
-            thresholdScore = thresholdScore,
             missingScoreQuantile = missingScoreQuantile
           )
       }
@@ -316,7 +315,7 @@
   return(res)
 }
 
-add_multi_vc_comparisons <- function(result, thresholdScore, missingScoreQuantile = 0.05) {
+add_multi_vc_comparisons <- function(result, missingScoreQuantile = 0.05) {
   label <- node <- collocate <- NULL
 
   if (!"label" %in% names(result) || dplyr::n_distinct(result$label) < 2) {