diff --git a/R/getWaterML1Data.r b/R/getWaterML1Data.r
index 213dd869908da790b63906a15ca24567a9e8d68b..8667b19fa01953be266a0b02a6844f2daed57689 100644
--- a/R/getWaterML1Data.r
+++ b/R/getWaterML1Data.r
@@ -13,11 +13,13 @@
 #' endDate <- "2012-10-01"
 #' offering <- '00003'
 #' property <- '00060'
-#' obs_url <- constructNWISURL(sites,property,startDate,endDate,'dv')
+#' obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
 #' data <- getWaterML1Data(obs_url)
-#' urlMulti <- constructNWISURL("04085427",c("00060","00010"),startDate,endDate,'dv',statCd=c("00003","00001"))
+#' urlMulti <- constructNWISURL("04085427",c("00060","00010"),
+#'             startDate,endDate,'dv',statCd=c("00003","00001"))
 #' multiData <- getWaterML1Data(urlMulti)
-#' goundwaterExampleURL <- "http://waterservices.usgs.gov/nwis/gwlevels/?format=waterml&sites=431049071324301&startDT=2013-10-01&endDT=2014-06-30"
+#' goundwaterExampleURL <- 
+#'     "http://waterservices.usgs.gov/nwis/gwlevels/?format=waterml&sites=431049071324301&startDT=2013-10-01&endDT=2014-06-30"
 #' groundWater <- getWaterML1Data(goundwaterExampleURL)
 #' unitDataURL <- constructNWISURL(siteNumber,property,
 #'          as.character(Sys.Date()),as.character(Sys.Date()),'uv',format='xml')