adding usgs r code