Just a couple R fixes
Merge pull request #101 from jiwalker-usgs/master

Made R script work