diff --git a/R/renameColumns.R b/R/renameColumns.R
index bf5c68dba4b7a97b3ea8f0168d7a396a75a24b7d..ecdb4e221eb8e74039da2c5cbe49ea347a36cf48 100644
--- a/R/renameColumns.R
+++ b/R/renameColumns.R
@@ -8,8 +8,9 @@
 #' @export
 #' @examples
 #' # This example requires an internet connection to run
-#' rawData2 <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
-#' rawData2 <- renameColumns(rawData2)
+#' siteNumber <- '05114000' 
+#' rawData <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
+#' rawData <- renameColumns(rawData)
 renameColumns <- function(rawData){
   
   columnNames <- names(rawData)
diff --git a/man/renameColumns.Rd b/man/renameColumns.Rd
index d1900410d08d1d33d24f8f46306a63c10d1ecf85..84bdd5cce4db2ebf7c93a0fd8c24dd3e4533b4a7 100644
--- a/man/renameColumns.Rd
+++ b/man/renameColumns.Rd
@@ -16,8 +16,9 @@
 }
 \examples{
 # This example requires an internet connection to run
-rawData2 <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
-rawData2 <- renameColumns(rawData2)
+siteNumber <- '05114000'
+rawData <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
+rawData <- renameColumns(rawData)
 }
 \keyword{USGS}
 \keyword{data}