Merge branch 'master' of https://github.com/malcolmbarrett/causal_inference_r_workshop

Author: LucyMcGowan

exercises/01-whole-game-exercises.Rmd

@@ -112,7 +112,7 @@ smk_wt_dag <- dagify(
     "smokeintensity" = "smoking\nintensity",
     "smokeyrs" = "yrs of\nsmoking"
   )
-) %>% tidy_dagitty(laout = "star")
+) %>% tidy_dagitty(layout = "star")
 
 smk_wt_dag
 ```

exercises/06-pscores-weighting-exercises.Rmd

@@ -10,7 +10,7 @@ library(broom)
 library(touringplans)
 ```
 
-We are interested in examining the relationship between whether there were "Extra Magic Hours" in the morning (the **expsoure**) and the average wait time for the Seven Dwarfs Mine Train the same day between 9am and 10am (the **outcome**).
+We are interested in examining the relationship between whether there were "Extra Magic Hours" in the morning (the **exposure**) and the average wait time for the Seven Dwarfs Mine Train the same day between 9am and 10am (the **outcome**).
 
 Below is the propensity score model you created in the previous exercise.
 

exercises/07-pscores-diagnostics-exercises.Rmd

@@ -12,7 +12,7 @@ library(touringplans)
 library(ggecdf)
 ```
 
-We are interested in examining the relationship between whether there were "Extra Magic Hours" in the morning (the **expsoure**) and the average wait time for the Seven Dwarfs Mine Train the same day between 9am and 10am (the **outcome**).
+We are interested in examining the relationship between whether there were "Extra Magic Hours" in the morning (the **exposure**) and the average wait time for the Seven Dwarfs Mine Train the same day between 9am and 10am (the **outcome**).
 
 Below is the propensity score model and weights you created in the previous exercise.
 

exercises/09-continuous-exposures.Rmd

@@ -17,22 +17,22 @@ In the touringplans data set, we have information about the posted waiting times
 library(ggdag)
 
 coord_dag <- list(
-  x = c(Season = -1, close = -1, weather = -2, extra = 0, x = 1, y = 2),
-  y = c(Season = -1, close = 1, weather = 0.25, extra = 0, x = 0, y = 0)
+  x = c(wdw_ticket_season = -1, close = -1, weather_wdwhigh = -2, extra_magic_morning = 0, avg_spostmin = 1, avg_sactmin = 2),
+  y = c(wdw_ticket_season = -1, close = 1, weather_wdwhigh = 0.25, extra_magic_morning = 0, avg_spostmin = 0, avg_sactmin = 0)
 )
 
 labels <- c(
-  extra = "Extra Magic Morning",
-  x = "Average posted wait ",
-  y = "Average actual wait",
-  Season = "Ticket Season",
-  weather = "Historic high temperature",
+  avg_sactmin = "Average actual wait",
+  avg_spostmin = "Average posted wait ",
+  extra_magic_morning = "Extra Magic Morning",
+  wdw_ticket_season = "Ticket Season",
+  weather_wdwhigh = "Historic high temperature",
   close = "Time park closed"
 )
 
 wait_time_dag <- dagify(
-  y ~ x + close + Season + weather + extra,
-  x ~ weather + close + Season + extra,
+  avg_sactmin ~ avg_spostmin + close + wdw_ticket_season + weather_wdwhigh + extra_magic_morning,
+  avg_spostmin ~ weather_wdwhigh + close + wdw_ticket_season + extra_magic_morning,
   coords = coord_dag,
   labels = labels
 )

exercises/10-g-computation-exercises.Rmd

@@ -58,7 +58,7 @@ predicted_no <- standardized_model %>%
 Finally, we'll get the mean differences between the values. 
 
 1. Bind `predicted_yes` and  `predicted_no` using `bind_cols()`
-2. Summarize the predicted values to create three new variables: `mean_yes`, `mean_no`, and `difference`. The first two should be the means of `mean_yes` and `mean_no`. `difference` should be `mean_yes` minus `mean_no`.
+2. Summarize the predicted values to create three new variables: `mean_yes`, `mean_no`, and `difference`. The first two should be the means of `yes_extra_hours` and `no_extra_hours`. `difference` should be `mean_yes` minus `mean_no`.
 
 ```{r}
 _______ %>% 

exercises/11-tipr.Rmd

@@ -8,7 +8,7 @@ output: html_document
 library(tipr)
 ```
 
-We are interested in examining the relationship between whether there were "Extra Magic Hours" in the morning (the **expsoure**) and the average wait time for the Seven Dwarfs Mine Train the same day between 9am and 10am (the **outcome**.
+We are interested in examining the relationship between whether there were "Extra Magic Hours" in the morning (the **exposure**) and the average wait time for the Seven Dwarfs Mine Train the same day between 9am and 10am (the **outcome**).
 
 ## Your turn
 

exercises/12-whole-game-2-exercises.Rmd

@@ -8,8 +8,9 @@ library(tidyverse)
 library(broom)
 library(rsample)
 library(ggdag)
-library(causaldata)
 library(tipr)
+library(tidysmd)
+library(ggecdf)
 ```
 
 ## Whole Game 2: Malaria and Mosquito Nets