Simplify one line of code

psychelzh · psychelzh · commit c9a04b831321 · 2024-10-06T16:30:03.000+08:00
diff --git a/R/cpm.R b/R/cpm.R
@@ -131,7 +131,7 @@ cpm <- function(conmat, behav, ...,
       seq_along(behav)
     },
     exclude = Reduce(
-      function(x, y) intersect(x, y),
+      intersect,
       list(
         which(stats::complete.cases(conmat)),
         which(stats::complete.cases(behav)),
