Weighted score

Weight a score against a population

Usage

weighted_score(
  score,
  weights = 1,
  reference = mean(weights, na.rm = TRUE),
  comparison = mean(score, na.rm = TRUE)
)

Arguments

score

A vector of values

weights

Weights applied to each score

reference

A reference value to compare against weights; when `weights` are lower than `needed`, the final score is biased towards `population`.

comparison

A comparison value; a population mean or other value

Examples

scores <- rep(seq(0, 1, .1), each = 10)
weights <- rep(1:10, 11)
weighted <- weighted_score(scores, weights)
plot(
  weighted,
  xlab = "index",
  ylab = "Weighted score",
  col = factor(scores),
  pch = weights,
  main = "Weighted score"
)
legend(
  "bottomright",
  legend = format(seq(0, 1, .1)),
  col = 1:11,
  pch = 1,
  title = "Scores"
)
legend(
  "bottomright",
  inset = c(0.12, 0),
  legend = format(1:10),
  col = 1,
  pch = weights,
  title = "Weights"
)