## data from Bland and Altman (1986). The Lancet 327, 307-310.
x <- list(Large = c(494,395,516,434,476,557,413,442,650,433,
417,656,267,478,178,423,427),
Mini = c(512,430,520,428,500,600,364,380,658,445,
432,626,260,477,259,350,451))
x <- as.data.frame(x)
plot(Mini ~ Large, data = x, xlim = c(100,800), ylim = c(100,800),
xlab = "PERF by Large meter", ylab = "PERF by Mini meter")
abline(c(0,1), col = "gray", lwd = 2)
## estimating L1 concordance coefficient
z <- l1ccc(~ Mini + Large, data = x, boots = FALSE)
z
## output:
# Call:
# l1ccc(x = ~ Mini + Large, data = x, boots = FALSE)
#
# L1 coefficients using:
# Laplace Gaussian U-statistic
# 0.7456 0.7607 0.7642
#
# Lin's coefficients:
# estimate accuracy precision
# 0.9395 0.9974 0.9419
Run the code above in your browser using DataLab