+<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>