(v1.3.0.9024) optimalisation

R/mo_matching_score.R

@@ -68,5 +68,5 @@ mo_matching_score <- function(x, fullname, uncertainty = 1) {
   var_U <- uncertainty
   
   # matching score:
-  (var_F - 0.5 * L) / (var_F * var_P * var_K * var_U)
+  (var_F - 0.5 * var_L) / (var_F * var_P * var_K * var_U)
 }

R/rsi_calc.R

@@ -263,7 +263,6 @@ rsi_calc_df <- function(type, # "proportion", "count" or "both"
   
   # based on pm_apply_grouped_function
   apply_group <- function(.data, fn, groups, drop = FALSE, ...) {
-    #groups <- get_groups(.data)
     grouped <- pm_split_into_groups(.data, groups, drop)
     res <- do.call(rbind, unname(lapply(grouped, fn, ...)))
     if (any(groups %in% colnames(res))) {