---
title: "Hypothesis Testing"
author: "PUT YOUR NAME HERE"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE, 
                      fig.width = 4, fig.height = 4, fig.align = 'center')
```

```{r}
library(dplyr)
library(ggplot2)

crawdad <- read.csv("https://collinn.github.io/data/crawdad.csv")

## Generate extra observations
set.seed(12)
idx <- sample(1:nrow(crawdad), size = 85, replace = TRUE)
crawdad <- crawdad[idx, ]
```


#### Exploration



#### Hypothesis 1



#### Hypothesis 2