report_template.Rmd

---
title: 
subtitle:  
author: 
date: "`r Sys.Date()`"
output: word_document
csl: author_year.csl
bibliography: bibliography.bib
---

```{r setup, echo=FALSE, message=FALSE}
knitr::opts_chunk$set(message = FALSE, warning=FALSE, echo=FALSE) 
pacman::p_load( )
setwd('...')
```


```{r data_loading}
clev.d <- read.csv("./data/AllClevelandCrimeData.csv")
```

# Background 

Sometimes crime increases around sports venues on game days [@kurland2014].  
It happens in Cleveland, too [@mayntz2001].  

# Methods

## Study area

Cleveland. 

## Favorite graphing package

**ggplot2**!


# Results

## Charges per game day 

```{r gd_charges}
# Calculate total charges per venue, game day/non-game day

```

 
# Discussion



# Code

```{r ref.label=knitr::all_labels( ), echo=TRUE,eval=FALSE}
```

# References cited