---
title: "The impact of X on Y"
author: "Justin Savoie"
date: "2023-11-21"
format:
  pdf:
    embed-resources: true
    toc: false
bibliography: references.bib
knitr:
  opts_chunk:
    echo: false
    message: false
---

```{r}
library(tidyverse)
# read data ...
```

# Introduction

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. See @banting2005we for more. Also this [@atkinson2013governance].

# Main Question / Theory / Review of Litterature

Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.Here is a footnote reference,[^1] and another.[^longnote]

[^1]: Here is the footnote.

[^longnote]: Here's one with multiple blocks.


# Data Used and Methods

Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

See @tbl-summary for a ...

```{r}
#| label: tbl-summary
#| tbl-cap: "Summary"
knitr::kable(mtcars)
```

# Results

See @tbl-lm1 ...

```{r lm1}
#| label: tbl-lm1
#| tbl-cap: "Model 1"
library(jtools)
fit <- lm(mpg~hp+cyl,mtcars)
export_summs(fit)
```

See @tbl-lm2 ...

```{r lm2}
#| label: tbl-lm2
#| tbl-cap: "Model 2"
fit2 <- lm(mpg~hp+cyl,mtcars)
export_summs(fit,fit2)
```

See @fig-plots for examples.

```{r figure}
#| label: fig-plots
#| fig-cap: "Plots" 
ggplot(mtcars,aes(x=mpg,y=cyl)) +
  geom_point() +
  geom_smooth()
```

\clearpage

# Bibliography