diff --git a/vignettes/dataRetrieval.Rnw b/vignettes/dataRetrieval.Rnw
index f0f202fba1caa9aac2d999e98f2e6baf59043ff6..a2468f4f8ef13877b20d80db70bc045e0dc7ad88 100644
--- a/vignettes/dataRetrieval.Rnw
+++ b/vignettes/dataRetrieval.Rnw
@@ -309,7 +309,7 @@ Site information is obtained from \url{http://waterservices.usgs.gov/rest/Site-T
 \subsubsection{whatNWISData}
 \label{sec:usgsDataAvailability}
 %------------------------------------------------------------
-To discover what data is available for a particular USGS site, including measured parameters, period of record, and number of samples (count), use the \texttt{whatNWISData} function. It is possible to limit the retrieval information to a subset of types (\texttt{"}dv\texttt{"}, \texttt{"}uv\texttt{"}, or \texttt{"}qw\texttt{"}). In the following example, we limit the retrieved Choptank data to only daily data. Leaving the \texttt{"}type\texttt{"} argument blank returns all of the available data for that site.
+To discover what data is available for a particular USGS site, including measured parameters, period of record, and number of samples (count), use the \texttt{whatNWISData} function. It is possible to limit the retrieval information to a subset of services (\texttt{"}dv\texttt{"}, \texttt{"}uv\texttt{"}, or \texttt{"}qw\texttt{"}). In the following example, we limit the retrieved Choptank data to only daily data. Leaving the \texttt{"}service\texttt{"} argument blank returns all of the available data for that site.
 
 
 <<getSiteExtended, echo=TRUE>>=
@@ -317,7 +317,7 @@ To discover what data is available for a particular USGS site, including measure
 # This pulls out just the daily data:
 
 dailyDataAvailable <- whatNWISData(siteNumbers,
-                    type="dv")
+                    service="dv")
 
 @
 
@@ -721,9 +721,8 @@ library(dataRetrieval)
 There are a few steps that are required in order to create a table in Microsoft\textregistered\ software (Excel, Word, PowerPoint, etc.) from an R dataframe. There are certainly a variety of good methods, one of which is detailed here. The example we will step through here will be to create a table in Microsoft Excel based on the dataframe tableData:
 
 <<label=getSiteApp, echo=TRUE>>=
-availableData <- whatNWISData(siteNumber)
-dailyData <- availableData["dv" == availableData$service,]
-dailyData <- dailyData["00003" == dailyData$statCd,]
+availableData <- whatNWISData(siteNumber, "dv")
+dailyData <- availableData["00003" == availableData$statCd,]
 
 tableData <- with(dailyData, 
       data.frame(
diff --git a/vignettes/figure/getNWIStemperaturePlot-1.pdf b/vignettes/figure/getNWIStemperaturePlot-1.pdf
index 2516018eb0bf1ee7fd2e66e387442582a57bb53a..e26ea57095dc4cbf7c2ecaab7a8db1595917ce6e 100644
Binary files a/vignettes/figure/getNWIStemperaturePlot-1.pdf and b/vignettes/figure/getNWIStemperaturePlot-1.pdf differ
diff --git a/vignettes/figure/getQWtemperaturePlot-1.pdf b/vignettes/figure/getQWtemperaturePlot-1.pdf
index f251bf281ba16d65c046ce807b2e9c6366052c7d..162c0917b92077ff02cc10fbc9c2ad12ff80922c 100644
Binary files a/vignettes/figure/getQWtemperaturePlot-1.pdf and b/vignettes/figure/getQWtemperaturePlot-1.pdf differ