x <- seq(1, 60, 5)
y <- seq(5, 50, 4)
conf_level <- 0.9
# Derive statistics that are needed for Bland-Altman plot
s_bland_altman(x, y, conf_level = conf_level)
# Create a Bland-Altman plot
g_bland_altman(x = x, y = y, conf_level = conf_level)
Run the code above in your browser using DataLab