diff --git a/R/whatWQPsites.R b/R/whatWQPsites.R
index 8160be3aa2076bae0546c95537f6720411e3789f..f7f3db740bd18c0c10ae7d41582ac95139974edb 100644
--- a/R/whatWQPsites.R
+++ b/R/whatWQPsites.R
@@ -53,7 +53,7 @@
 #' site1 <- whatWQPsites(siteid="USGS-01594440")
 #' 
 #' type <- "Stream"
-#' sites <- whatWQPsites(statecode="US:55",countycode="US:55:025",siteType=type)
+#' sites <- whatWQPsites(countycode="US:55:025",siteType=type)
 #' }
 whatWQPsites <- function(...){
 
@@ -123,7 +123,13 @@ whatWQPsites <- function(...){
     return(retval)
     
   } else {
-    return(NA)
+    if(headerInfo['Total-Site-Count'] == "0"){
+      warning("No data returned")
+    }
+    
+    for(i in grep("Warning",names(headerInfo))){
+      warning(headerInfo[i])
+    }
   }
 
 }
diff --git a/man/readWQPdata.Rd b/man/readWQPdata.Rd
index 4cb34ba6a90a672ac764f6a1a014fe9a02641caf..b02c7df1e2cc3e6b5cbbb5a8869121e4a69a0559 100644
--- a/man/readWQPdata.Rd
+++ b/man/readWQPdata.Rd
@@ -99,6 +99,11 @@ because it allows for other agencies rather than the USGS.
 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")
+nutrientPysical <- readWQPdata(statecode="US:55",siteType="Stream",
+                        samplMedia="Water",startDateLo=startDate,
+                        characteristicType=c("Nutrient","Physical))
 }
 }
 \keyword{WQP}
diff --git a/man/whatWQPsites.Rd b/man/whatWQPsites.Rd
index 0f8835a62f18c940ca0fb28f2d7a2141fd84c090..c6ddb6fffd57e9a316f85150ef20b2609decd08b 100644
--- a/man/whatWQPsites.Rd
+++ b/man/whatWQPsites.Rd
@@ -61,7 +61,7 @@ Arguments to the function should be based on \url{www.waterqualitydata.us/webser
 site1 <- whatWQPsites(siteid="USGS-01594440")
 
 type <- "Stream"
-sites <- whatWQPsites(statecode="US:55",countycode="US:55:025",siteType=type)
+sites <- whatWQPsites(countycode="US:55:025",siteType=type)
 }
 }
 \keyword{WQP}