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 <- 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 = "html")</code></pre> <pre><code>## <!-- html table generated in R 4.0.3 by xtable 1.8-4 package --> -## <!-- Mon Oct 26 11:16:05 2020 --> +## <!-- Tue Oct 27 20:25:44 2020 --> ## <table border=1> ## <tr> <th> </th> <th> FALSE </th> <th> TRUE </th> </tr> ## <tr> <td align="right"> FALSE </td> <td align="right"> 593 </td> <td align="right"> 322 </td> </tr>