how to compute weighted average in r in r

main.r
# create two vectors for example values and weights
values <- c(2, 4, 6, 8, 10)
weights <- c(1, 2, 3, 4, 5)

# compute the weighted average using the weighted.mean() function
weighted.mean(values, weights)
206 chars
7 lines

main.r
# add an NA value to the values vector
values <- c(2, 4, 6, 8, NA, 10)

# compute the weighted average without removing NAs (returns NA)
weighted.mean(values, weights)

# compute the weighted average with NA values removed
weighted.mean(values, weights, na.rm = TRUE)
268 chars
9 lines