minor bug in weighted mode

mjskay · Jan 6, 2024 · 076f504 · 076f504
1 parent d1bab64
commit 076f504
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/point_interval.R b/R/point_interval.R
@@ -530,7 +530,7 @@ Mode.default = function(x, na.rm = FALSE, ..., density = density_bounded(trim =
       ux[which.max(tabulate(match(x, ux)))]
     } else {
       ux = unique(x)
-      ux_weights = vapply(split(weights, factor(ux, ux)), sum, numeric(1))
+      ux_weights = vapply(split(weights, factor(x, ux)), sum, numeric(1))
       ux[which.max(ux_weights)]
     }
   } else {