o <- options(digits = 4)
## data
data("GermanParties2009", package = "psychotools")
## Bradley-Terry model
bt <- btmodel(GermanParties2009$preference)
## worth parameters
worth(bt)
## or
itempar(bt)
options(digits = o$digits)
Run the code above in your browser using DataLab