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)
```
working FIS() function with cleaned up dplyr calls towards end. Resolves #33.
Merge pull request #47 from bbest/master

updated FIS(). closes #33