# NOT RUN {
data(pork) # pork tasting data, 10 individual paired comparison matrices
btl1 <- eba(apply(pork, 1:2, sum)) # fit Bradley-Terry-Luce model
b <- boot(pork, R = 200) # resample 200 times
plot(coef(btl1), b$stat[, "mean"], log = "xy")
abline(0, 1, lty = 2)
# }
Run the code above in your browser using DataLab