X-Git-Url: https://code.communitydata.science/stats_class_2020.git/blobdiff_plain/8fd157255be676075b265bce505eb1997cc10983..HEAD:/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 ## 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>