`R/08_estimate_bias.R`

`estimate_bias.Rd`

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)

msur | A numeric value or vector of mean measurements from observers |
---|---|

msup | A numeric value or vector of mean measurements from supervisor |

mall | A numeric value or vector of the median of measurements from observers |

A numeric value or vector signifying bias

# 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, ]