weighted_score: Weighted score

In jmbarbone/jordanExtra: Extra Functions for the mark Package

Weighted score

Description

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"
)

jmbarbone/jordanExtra documentation built on April 13, 2025, 3:28 a.m.