Calculate the bias of a measurement against a gold standard. Two gold standards are used in this function: 1) measurements made by a supervisor or a known expert; and, 2) median of all measurements made by the observers.

estimate_bias(msur, msup, mall)

## Arguments

msur A numeric value or vector of mean measurements from observers A numeric value or vector of mean measurements from supervisor A numeric value or vector of the median of measurements from observers

## Value

A numeric value or vector signifying bias

## Examples

#
mean_measure <- summary_measure(x = smartStdLong$measure_value, index = smartStdLong[ , c("observer", "measure_type")]) msupDF <- mean_measure$mean[1, ]
msurDF <- mean_measure\$mean[2:11, ]