diff --git a/R/getNWISData.r b/R/getNWISData.r
index 64f286f60ec579e00f84b93710a9c74e133e0886..bd1cf61f1f1e26f2a635b7787f39f64f9959e609 100644
--- a/R/getNWISData.r
+++ b/R/getNWISData.r
@@ -1,9 +1,10 @@
 #' General Data Import from NWIS
 #'
 #' Returns data from the NWIS web service.
-#' Arguments to the function should be based on \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service}
+#' Arguments to the function should be based on \url{http://waterservices.usgs.gov} service calls.
 #'
-#' @param service string
+#' @param service string. Possible values are "iv" (for instantaneous), "dv" (for daily values), "gwlevels" 
+#' (for groundwater levels), and "qwdata" (for water quality)
 #' @param \dots see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options
 #' @keywords data import NWIS web service
 #' @return retval dataframe 
@@ -21,7 +22,7 @@ getNWISData <- function(service="dv", ...){
   
   baseURL <- paste0("http://waterservices.usgs.gov/nwis/",service,"/?format=rdb&")
   urlCall <- paste0(baseURL,urlCall)
-  if(service=="qw"){
+  if(service=="qwdata"){
     urlCall <- paste0(urlCall,"&siteOutput=expanded")
   }
   
diff --git a/man/getNWISData.Rd b/man/getNWISData.Rd
index 6f95b8445c65370730d0fa136420764ebe1033a0..75ab364904ab4322007181050d9d51b91780409d 100644
--- a/man/getNWISData.Rd
+++ b/man/getNWISData.Rd
@@ -6,7 +6,8 @@
 getNWISData(service = "dv", ...)
 }
 \arguments{
-\item{services}{string}
+\item{service}{string. Possible values are "iv" (for instantaneous), "dv" (for daily values), "gwlevels"
+(for groundwater levels), and "qwdata" (for water quality)}
 
 \item{\dots}{see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options}
 }
@@ -15,7 +16,7 @@ retval dataframe
 }
 \description{
 Returns data from the NWIS web service.
-Arguments to the function should be based on \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service}
+Arguments to the function should be based on \url{http://waterservices.usgs.gov} service calls.
 }
 \examples{
 dataTemp <- getNWISData(stateCd="OH",parameterCd="00010")