---
output: 
  stevetemplates::ekohist_thesis:
    citation_package: natbib
    dev: cairo_pdf
    keep_tex: true
biblio-style: apsr
title: "An EKOHIST Thesis"
subtitle: "A subtitle to add to the document."
thanks: "Replication files are available on the author's Github account (http://github.com/sven-svensson). **Current version**: `r format(Sys.time(), '%B %d, %Y')`; **Corresponding author**: steven.miller@ekohist.su.se."
author: Sven Svensson
supervisor: Erika Erikasdottir
term: Spring Term 2023
field: International Relations
abstract: "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec sit amet libero justo. Pellentesque eget nibh ex. Aliquam tincidunt egestas lectus id ullamcorper. Proin tellus orci, posuere sed cursus at, bibendum ac odio. Nam consequat non ante eget aliquam. Nulla facilisis tincidunt elit. Nunc hendrerit pellentesque quam, eu imperdiet ipsum porttitor ut. Interdum et malesuada fames ac ante ipsum primis in faucibus. Suspendisse potenti. Duis vitae nibh mauris. Duis nec sem sit amet ante dictum mattis. Suspendisse diam velit, maximus eget commodo at, faucibus et nisi. Ut a pellentesque eros, sit amet suscipit eros. Nunc tincidunt quis risus suscipit vestibulum. Quisque eu fringilla massa."
keywords: "pandoc, r markdown, knitr"
date: "`r format(Sys.time(), '%B %d, %Y')`"
geometry: margin=1in
mainfont: Times New Roman
fontsize: 12pt
doublespacing: TRUE
pandocparas: FALSE
toc: TRUE
lof: TRUE
lot: TRUE
header-includes:
  - \usepackage{longtable}
  - \LTcapwidth=.95\textwidth
  - \linespread{1.05}
  - \usepackage{hyperref}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# Uncomment below if you want code captions
# oldSource <- knitr::knit_hooks$get("source")
# knitr::knit_hooks$set(source = function(x, options) {
#   x <- oldSource(x, options)
#   x <- ifelse(!is.null(options$code.cap), paste0(x, "\\captionof{chunk}{", options$code.cap,"}"), x)
#   ifelse(!is.null(options$ref), paste0(x, "\\label{", options$ref,"}"), x)
# })
# Add `chunkcaption: TRUE` to YAML as well.
```


\newpage

# Introduction

\kant[1]

## A Subsection in the Introduction

\kant[2]

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>. 


When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r cars}
knitr::kable(summary(cars), caption = "A Summary Table of the `cars` Data Set")
```

# Results

\kant[24]

## Including Plots

You can also embed plots, for example:

```{r pressure, echo=FALSE, fig.cap = "A Plot of the Vapor Pressure of Mercury"}
plot(pressure)
```

Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.


# Appendix {-}

\beginappendix

Optional appendix stuff goes here.


\kant[25]

```{r, fig.cap = "A Plot of the Motor Trend Car Road Tests Data"}
plot(mtcars)
```


\kant[3-4]

```{r}
knitr::kable(WorldPhones, caption = "The World's Telephones, by Region")
```
