diff --git a/USGS_NWIS.R b/USGS_NWIS.R
index d8f0232..b2fb9ce 100644
--- a/USGS_NWIS.R
+++ b/USGS_NWIS.R
@@ -1,14 +1,13 @@
-library(dataRetrieval, quietly = TRUE)
-library(tidyverse, quietly = TRUE)
-library(RColorBrewer, quietly = TRUE)
-library(scales, quietly = TRUE)
+library(dataRetrieval)
+library(tidyverse)
+library(RColorBrewer)
+library(scales)
 
 setwd("/home/ben/Documents/dataProjects/USGS_NWIS")
 
-rivers <- data.frame(names = c("Elwha", "Calawah", "Hoh", "Dungeness", "Duckabush", "Wenatchee", "Snake", "Wisconsin", "Cedar", "Colorado"), 
-                     siteNumber = c("12045500", "12043000", "12041200", "12048000", "12054000", "12462500", "13013650", "05407000", "12119000", "09380000"))
+rivers <- read_csv(file = "river_IDs.csv", col_types = c("c", "c"))
 
-#rivers <- rivers %>% filter(names %in% c("Elwha"))
+rivers <- rivers %>% filter(names %in% c("Elwha"))
 #rivers <- rivers %>% filter(names %in% c("Duckabush"))
 #rivers <- rivers %>% filter(names %in% c("Hoh"))
 
diff --git a/example_last_6_months.png b/example_last_6_months.png
new file mode 100644
index 0000000..25172a3
Binary files /dev/null and b/example_last_6_months.png differ
diff --git a/river_IDs.csv b/river_IDs.csv
new file mode 100644
index 0000000..2d365a9
--- /dev/null
+++ b/river_IDs.csv
@@ -0,0 +1,11 @@
+names,siteNumber
+Elwha,12045500
+Calawah,12043000
+Hoh,12041200
+Dungeness,12048000
+Duckabush,12054000
+Wenatchee,12462500
+Snake,13013650
+Wisconsin,05407000
+Cedar,12119000
+Colorado,09380000