20  Marginalizing the problem

Warning

šŸš§ This section is being actively worked on. šŸš§

ā€œx.ā€ ā€” John Doe

20.1 Pree-class Literature

21 Slides

Session 15 slides

The slides contain speaking notes that you can view by pressing ā€˜Sā€™ on the keyboard.

21.1 Case session 14: ā€œā€

hd_data <- hd_data |>
    mutate(
        ExAng = factor(ExAng,
            levels = c(0, 1),
            labels = c("no", "yes")
        ),
        HD = factor(HD,
            levels = c("No", "Yes"),
            labels = c("no", "yes")
        ),
        ChestPain = factor(ChestPain),
        Thal = factor(Thal),
        fasting_blood_glucose = factor(Fbs,
            levels = c(0, 1),
            labels = c("normal", "high")
        )
    )

hd_data |>
  ggplot(ggplot2::aes(Age, MaxHR, color = HD)) +
  geom_point() +
  geom_smooth(method = "lm")
`geom_smooth()` using formula = 'y ~ x'

21.2 Reading Task: Investigating one variable at a time

ā€¦