almost finished with FIS (#33). just getting Error: object 'year' not found at:

```{r}
Trend = ddply(StatusData, .(rgn_id), summarize,
+     Trend = lm(round(Status, 2) ~ year)$coefficients[['year']] * 5)
```