diff --git a/R/getWQPData.r b/R/getWQPData.r
index e48bc07c15f06e6d0a2ca4530e5711d387cc0e5c..80a836e5160252d884705bff7254c2c28a6307a4 100644
--- a/R/getWQPData.r
+++ b/R/getWQPData.r
@@ -19,6 +19,7 @@
 #' Chloride <- getWQPData('USGS-01594440','Chloride', '', '')
 #' SC <- getWQPData('WIDNR_WQX-10032762','Specific conductance', '', '')
 #' NWIS_Cl <- getWQPData('USGS-04024000','30234', '', '')
+#' MultipleQW <- getWQPData('USGS-04024000',c('30234','90095'), '', '')
 getWQPData <- function(siteNumber,characteristicName,StartDate,EndDate,interactive=TRUE){
   
   retval <- retrieveWQPqwData(siteNumber=siteNumber,