diff --git a/R/readWQPdata.R b/R/readWQPdata.R
index cf5e7b8155dd419a2fb43580e14da79ffff2d2d3..3aa5fbace53b873b093a196e231ed4bdf79f5334 100644
--- a/R/readWQPdata.R
+++ b/R/readWQPdata.R
@@ -89,12 +89,11 @@
 #' \dontrun{
 #' nameToUse <- "pH"
 #' pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
-#' pHDataExpanded <- readWQPdata(bBox="-90.10,42.67,-88.64,43.35",characteristicName=nameToUse)
 #' pHDataExpanded2 <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35),characteristicName=nameToUse)
-#' startDate <- as.Date("2008-01-01")
+#' startDate <- as.Date("2013-01-01")
 #' nutrientPysical <- readWQPdata(statecode="US:55",siteType="Stream",
-#'                         samplMedia="Water",startDateLo=startDate,
-#'                         characteristicType=c("Nutrient","Physical))
+#'                         sampleMedia="Water",startDate=startDate,
+#'                         characteristicType=c("Nutrient","Physical"))
 #' }
 readWQPdata <- function(...){
   
@@ -123,7 +122,7 @@ readWQPdata <- function(...){
       warning("Please check the date format for the arguments: ", paste(names(values)[index], collapse=", "))
     }
     
-    names(values)[names(values) == 'beginDate'] <- 'startDateLo'
+    names(values)[names(values) == 'startDate'] <- 'startDateLo'
     names(values)[names(values) == 'endDate'] <- 'startDateHi'
     
   }
diff --git a/R/whatWQPsites.R b/R/whatWQPsites.R
index f7f3db740bd18c0c10ae7d41582ac95139974edb..c9b15dbd4c66adcacc8095566556cf0665becc5c 100644
--- a/R/whatWQPsites.R
+++ b/R/whatWQPsites.R
@@ -82,7 +82,7 @@ whatWQPsites <- function(...){
       warning("Please check the date format for the arguments: ", paste(names(values)[index], collapse=", "))
     }
     
-    names(values)[names(values) == 'beginDate'] <- 'startDateLo'
+    names(values)[names(values) == 'startDate'] <- 'startDateLo'
     names(values)[names(values) == 'endDate'] <- 'startDateHi'
     
   }