R/bpc_rank_of_players.R
get_rank_of_players_table.Rd
Publication-ready table for the rank table
get_rank_of_players_table( bpc_object, format = "latex", digits = 3, caption = "Estimated posterior ranks", n = 1000 )
bpc_object | a bpc object |
---|---|
format | A character string. same formats utilized in the knitr::kable function
|
digits | number of digits in the table |
caption | a string containing the caption of the table |
n | number of times we are sampling the posterior |
a formatted table
# \donttest{ m<-bpc(data = tennis_agresti, player0 = 'player0', player1 = 'player1', result_column = 'y', model_type = 'bt', solve_ties = 'none') #> Running MCMC with 4 parallel chains... #> #> Chain 1 finished in 3.4 seconds. #> Chain 2 finished in 3.3 seconds. #> Chain 4 finished in 3.3 seconds. #> Chain 3 finished in 3.4 seconds. #> #> All 4 chains finished successfully. #> Mean chain execution time: 3.4 seconds. #> Total execution time: 3.7 seconds. t<-get_rank_of_players_table(m) print(t) #> \begin{table} #> #> \caption{Estimated posterior ranks} #> \centering #> \begin{tabular}[t]{lrrr} #> \toprule #> Parameter & MedianRank & MeanRank & StdRank\\ #> \midrule #> Graf & 1 & 1.349 & 0.588\\ #> Seles & 2 & 2.127 & 0.894\\ #> Navratilova & 3 & 3.045 & 0.862\\ #> Sabatini & 4 & 3.681 & 0.826\\ #> Sanchez & 5 & 4.798 & 0.495\\ #> \bottomrule #> \end{tabular} #> \end{table} # }