R Notebook

library("tidyverse")
library("microbenchmark")

sample <- tibble(
  Var_1 = c(1, 0, 1, 0),
  Var_2 = c(1, 1, 0, 0),
  Var_3 = c(2, 2, 1, 1)
)
weights <- c(2, 3, 4)

method1 <- function() {
  sample |>
    mutate(Weighted_Sum = Var_1 * weights[1] + Var_2 * weights[2] + Var_3 * weights[3]) |>
    select(Weighted_Sum)
}
method2 <- function() {
  sample |>
    rowwise() |>
    mutate(Weighted_Sum = sum(c_across(starts_with("Var_")) * weights)) |>
    ungroup() |>
    select(Weighted_Sum)
}

# Benchmark the two methods
benchmark_results <- microbenchmark(
  method1 = method1(),
  method2 = method2(),
  times = 1000  # Number of iterations
)
print(benchmark_results)

Unit: microseconds