SH3_analysis.rmd

---
title: "SH3"
author: "L Feher"
date: "June 23, 2017"
output: html_document
---

##Cumulative elevation trends

```{r, include=FALSE}
SH3 <- read.csv("SH3.csv")

```

### SH3 original - including all data points (pre & post Wilma)
```{r}
OCSET_all <- lm(Original_CU~Years, data=SH3[c(-1)])
```
```{r, echo=FALSE}
summary(OCSET_all)
```

### SH3 deep - including all data points (pre & post Wilma)

```{r}
DCSET_all <- lm(Original_CU~Years, data=SH3[c(-14)])
```
```{r, echo=FALSE}
summary(DCSET_all)
```

### SH3 shallow - including all data points (pre & post Wilma)

```{r}
SCSET_all <- lm(Shallow_CU~Years, data=SH3[c(-14)])
```
```{r, echo=FALSE}
summary(SCSET_all)
```