# NOT RUN {
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)") %>%
gf_theme(theme = sjPlot::theme_sjplot2(base_size = 9))
data(Sharples)
Sharples %>%
bland_altman(srweight ~ weight, transform = TRUE) %>%
gf_labs(x = "Mean of weights (kg)", y = "Measured weight / Self-reported weight") %>%
gf_theme(theme = sjPlot::theme_sjplot2(base_size = 9))
# }
Run the code above in your browser using DataLab