powered by
Computes the weighted sum of x using weights w, where idx is TRUE.
x
w
idx
weighted_sum(x, w, idx)
A single numeric value. Returns 0 if no TRUE values in idx.
Numeric vector of values.
Numeric vector of weights, same length as x.
Logical vector indicating which elements to include.
idx_active <- c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE) AGSA <- c(0.1, 0.2, 0.03, 0.04, 0.05, 0.6) Duration <- c(100, 90, 80, 70, 60, 50) ActiveVolume <- weighted_sum(AGSA, Duration, idx_active)
Run the code above in your browser using DataLab