X-Git-Url: https://code.communitydata.science/stats_class_2020.git/blobdiff_plain/8fd157255be676075b265bce505eb1997cc10983..HEAD:/psets/pset5-worked_solution.html?ds=sidebyside 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
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>