# NOT RUN {
## data
data("GermanParties2009", package = "psychotools")
## Bradley-Terry model
bt <- btmodel(GermanParties2009$preference)
plot(bt)
plot(bt, worth = FALSE)
plot(bt, index = FALSE)
# }
Run the code above in your browser using DataCamp Workspace