From a62befbada10e1e32fb890243c47ddcddcf28baf Mon Sep 17 00:00:00 2001 From: mine-cetinkaya-rundel Date: Sun, 4 Sep 2022 14:12:08 -0400 Subject: [PATCH] Fix east, closes #121 --- 04-foundations/01-lesson/04-01-lesson.Rmd | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/04-foundations/01-lesson/04-01-lesson.Rmd b/04-foundations/01-lesson/04-01-lesson.Rmd index bec737c4..1f59eb7a 100644 --- a/04-foundations/01-lesson/04-01-lesson.Rmd +++ b/04-foundations/01-lesson/04-01-lesson.Rmd @@ -199,7 +199,6 @@ ggplot(randdiff) + The second shuffle, on the other hand, gives 27 people on the East Coast who prefer cola as compared with 20 on the West Coast who prefer cola. The difference in sample proportions for the second shuffle of the data is -0.02, which is less extreme than the original data. Note that both the original data, the red line, and the first two shuffled differences in proportions, black dots, can be plotted together. - ```{r} dt <- tibble(Location = c('East','West'), Cola = c(27,20), Orange = c(7,6), ) @@ -226,7 +225,7 @@ ggplot(randdiff) + The next few shuffles give differences in proportions centered around zero. ```{r} -dt <- tibble(Location = c('East','West'), Cola = c(28,21), Orange = c(8,5), ) +dt <- tibble(Location = c('East','West'), Cola = c(28,21), Orange = c(6,5)) kable(dt, format = "html", escape = F) %>% kable_styling("striped", full_width = F, position = "float_left")