data(celebrities)
y1 <- t(celebrities)[lower.tri(celebrities)]
y0 <- celebrities[lower.tri(celebrities)]
## Fit BTL model using glm
btl.glm <- glm(cbind(y1, y0) ~ pcX(9)[,-1] - 1, binomial)
linear2btl(btl.glm)
Run the code above in your browser using DataLab