data(wright, package = "ISwR")
wright |>
bland_altman(mini.wright ~ std.wright,
pch = 16,
ylab = "Large-mini expiratory flow rate (l/min)",
xlab = "Mean expiratory flow rate (l/min)"
) |>
gf_labs(
y = "Large-mini expiratory flow rate (l/min)",
x = "Mean expiratory flow rate (l/min)"
)
data(Sharples)
Sharples |>
bland_altman(srweight ~ weight, transform = TRUE) |>
gf_labs(x = "Mean of weights (kg)", y = "Measured weight / Self-reported weight")
Run the code above in your browser using DataLab