From: aaronshaw Date: Wed, 28 Oct 2020 02:33:05 +0000 (-0500) Subject: adding proportions table (and hopefully nothing else) X-Git-Url: https://code.communitydata.science/stats_class_2020.git/commitdiff_plain/fee4a69906c247a2157f1932be4015d0226017c0?ds=sidebyside adding proportions table (and hopefully nothing else) --- 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 ## took_fruit FALSE TRUE ## FALSE 593 322 ## TRUE 185 122 +
obama.prop.tbl <- proportions(table(took_fruit = df$fruit, saw_flotus = df$obama), margin = 2)
+obama.prop.tbl
+
##           saw_flotus
+## took_fruit     FALSE      TRUE
+##      FALSE 0.7622108 0.7252252
+##      TRUE  0.2377892 0.2747748

PC4. Test for differences between groups

@@ -1736,7 +1742,7 @@ p1
library(xtable)
 print(xtable(obama.tbl), type = "html")
## <!-- 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>
diff --git a/psets/pset5-worked_solution.rmd b/psets/pset5-worked_solution.rmd
index 32ced5c..f2c8991 100644
--- a/psets/pset5-worked_solution.rmd
+++ b/psets/pset5-worked_solution.rmd
@@ -70,6 +70,8 @@ summary(df)
 obama.tbl <- table(took_fruit=df$fruit, saw_flotus=df$obama)
 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