post sample R code by David Hunter for the Bradley-Terry model