Format a contingency table for use with knitr

Usage

contingency_table(Tab, digits = 2)

Arguments

Tab: Number of random strings to generate
digits: Number of characters in each random string

Examples

Tab <- table(A=rnorm(100)>0, B=rnorm(100)>0)
contingency_table(Tab)
#> <table class="table" style="width: auto !important; margin-left: auto; margin-right: auto;">
#>  <thead>
#>   <tr>
#>    <th style="text-align:left;">   </th>
#>    <th style="text-align:right;"> B: No </th>
#>    <th style="text-align:right;"> B: Yes </th>
#>   </tr>
#>  </thead>
#> <tbody>
#>   <tr>
#>    <td style="text-align:left;"> A: No </td>
#>    <td style="text-align:right;"> 28 </td>
#>    <td style="text-align:right;"> 28 </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;"> A: Yes </td>
#>    <td style="text-align:right;"> 22 </td>
#>    <td style="text-align:right;"> 22 </td>
#>   </tr>
#> </tbody>
#> </table>