+<pre class="r"><code>obama.prop.tbl <- proportions(table(took_fruit = df$fruit, saw_flotus = df$obama), margin = 2)
+obama.prop.tbl</code></pre>
+<pre><code>##           saw_flotus
+## took_fruit     FALSE      TRUE
+##      FALSE 0.7622108 0.7252252
+##      TRUE  0.2377892 0.2747748</code></pre>