# NOT RUN {
m<-bpc(data = tennis_agresti,
player0 = 'player0',
player1 = 'player1',
result_column = 'y',
model_type = 'bt',
solve_ties = 'none')
s <- get_sample_posterior(m, par='lambda', n=100)
print(head(s))
# }
Run the code above in your browser using DataLab