X-Git-Url: https://code.communitydata.science/stats_class_2020.git/blobdiff_plain/8fd157255be676075b265bce505eb1997cc10983..dacc33888c174675b0bc4910d60a6fd2c5b43223:/psets/pset5-worked_solution.html

diff --git a/psets/pset5-worked_solution.html b/psets/pset5-worked_solution.html
index 4378477..4bb5504 100644
--- a/psets/pset5-worked_solution.html
+++ b/psets/pset5-worked_solution.html
@@ -1617,6 +1617,12 @@ obama.tbl</code></pre>
 ## took_fruit FALSE TRUE
 ##      FALSE   593  322
 ##      TRUE    185  122</code></pre>
+<pre class="r"><code>obama.prop.tbl &lt;- 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>
 </div>
 <div id="pc4.-test-for-differences-between-groups" class="section level2">
 <h2>PC4. Test for differences between groups</h2>
@@ -1736,7 +1742,7 @@ p1</code></pre>
 <pre class="r"><code>library(xtable)
 print(xtable(obama.tbl), type = &quot;html&quot;)</code></pre>
 <pre><code>## &lt;!-- html table generated in R 4.0.3 by xtable 1.8-4 package --&gt;
-## &lt;!-- Mon Oct 26 11:16:05 2020 --&gt;
+## &lt;!-- Tue Oct 27 20:25:44 2020 --&gt;
 ## &lt;table border=1&gt;
 ## &lt;tr&gt; &lt;th&gt;  &lt;/th&gt; &lt;th&gt; FALSE &lt;/th&gt; &lt;th&gt; TRUE &lt;/th&gt;  &lt;/tr&gt;
 ##   &lt;tr&gt; &lt;td align=&quot;right&quot;&gt; FALSE &lt;/td&gt; &lt;td align=&quot;right&quot;&gt; 593 &lt;/td&gt; &lt;td align=&quot;right&quot;&gt; 322 &lt;/td&gt; &lt;/tr&gt;