# NOT RUN {
m<-bpc(data = tennis_agresti,
player0 = 'player0',
player1 = 'player1',
result_column = 'y',
model_type = 'bt',
solve_ties = 'none')
rank_m<-get_rank_of_players(m,n=100)
rank_table <- dplyr::select(rank_m,-MeanRank, -StdRank,-PosteriorRank)
print(rank_table)
# }
Run the code above in your browser using DataLab