ps4.Rmd

---
title: "Problem Set 4"
author: "Alex, Micah, Scott, and David"
date: "12/01/2021"
output:
  pdf_document:
    number_sections: yes
name: YOUR NAME HERE
---

```{r global options, include = FALSE}
knitr::opts_chunk$set(include = FALSE, message = FALSE, warning = FALSE)

knitr::knit_engines$set(problem_description = function(options) {
  code <- paste(options$code, collapse = "\n")
})
```

```{r load packages, warning=FALSE, message = FALSE}
library(data.table)

library(sandwich)
library(lmtest)

library(stargazer)
library(ggplot2)
library(magrittr)

library(knitr)
inline_reference <- "r inline_reference"
```

\tableofcontents
\newpage

```{r, child='./questions/question_1.Rmd'}
```

\newpage

```{r, child='./questions/question_2.Rmd'}
```

\newpage

```{r, child='./questions/question_3.Rmd'}
```

\newpage

```{r, child='./questions/question_4.Rmd'}
```

\newpage

```{r, child='./questions/question_5_optional.Rmd'}
```