ashaw/stats_class_2020
1
0
Fork 0
Code Activity

adding proportions table (and hopefully nothing else)

Browse Source
This commit is contained in:
aaronshaw
2020-10-27 21:33:05 -05:00
parent 548d95f43d
commit fee4a69906
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
psets/pset5-worked_solution.html
View File

@@ -1617,6 +1617,12 @@ obama.tbl</code></pre>
## took_fruit FALSE TRUE ## took_fruit FALSE TRUE
## FALSE 593 322 ## FALSE 593 322
## TRUE 185 122</code></pre> ## 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>
<div id="pc4.-test-for-differences-between-groups" class="section level2"> <div id="pc4.-test-for-differences-between-groups" class="section level2">
<h2>PC4. Test for differences between groups</h2> <h2>PC4. Test for differences between groups</h2>
@@ -1736,7 +1742,7 @@ p1</code></pre>
<pre class="r"><code>library(xtable) <pre class="r"><code>library(xtable)
print(xtable(obama.tbl), type = &quot;html&quot;)</code></pre> 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; <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;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;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; ## &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;

2
psets/pset5-worked_solution.rmd
View File

@@ -70,6 +70,8 @@ summary(df)
obama.tbl <- table(took_fruit=df$fruit, saw_flotus=df$obama) obama.tbl <- table(took_fruit=df$fruit, saw_flotus=df$obama)
obama.tbl obama.tbl
obama.prop.tbl <- proportions(table(took_fruit=df$fruit, saw_flotus=df$obama), margin=2)
obama.prop.tbl
``` ```
## PC4. Test for differences between groups ## PC4. Test for differences between groups