data(platelet)
fit <- mcreg(
x = platelet$Comparative, y = platelet$Candidate,
method.reg = "Deming", method.ci = "jackknife"
)
calcBias(fit, x.levels = c(30, 200))
calcBias(fit, x.levels = c(30, 200), type = "proportional")
calcBias(fit, x.levels = c(30, 200), type = "proportional", percent = FALSE)
Run the code above in your browser using DataLab