diff --git a/R/compressData.r b/R/compressData.r
index 57cf0bf54095f5f65e8d10240187c60cbbaed52c..8f944da52846869945b42f8565cead6fa3089854 100644
--- a/R/compressData.r
+++ b/R/compressData.r
@@ -19,7 +19,9 @@
 #' value2 <- c(2,3,4)
 #' comment3 <- c("","","<")
 #' value3 <- c(3,4,5)
-#' dataInput <- data.frame(dateTime, comment1, value1, comment2, value2, comment3, value3, stringsAsFactors=FALSE)
+#' dataInput <- data.frame(dateTime, comment1, value1, 
+#'       comment2, value2, 
+#'       comment3, value3, stringsAsFactors=FALSE)
 #' compressData(dataInput)
 compressData <- function(data, interactive=TRUE){  
   
diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r
index 88083fdd77f0a8cf7fa013a72b60cf8cd225eb49..d638f8d5fbc3965c18a0373c99711abd4d362c60 100644
--- a/R/constructNWISURL.r
+++ b/R/constructNWISURL.r
@@ -23,12 +23,16 @@
 #' startDate <- '1985-01-01'
 #' endDate <- ''
 #' pCode <- c("00060","00010")
-#' url_daily <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',statCd=c("00003","00001"))
+#' url_daily <- constructNWISURL(siteNumber,pCode,
+#'            startDate,endDate,'dv',statCd=c("00003","00001"))
 #' url_unit <- constructNWISURL(siteNumber,pCode,"2012-06-28","2012-06-30",'iv')
 #' url_qw_single <- constructNWISURL(siteNumber,"01075",startDate,endDate,'qw')
-#' url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),startDate,endDate,'qw')
-#' url_wqp <- constructNWISURL(paste("USGS",siteNumber,sep="-"),c('01075','00029','00453'),startDate,endDate,'wqp')
-#' url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',statCd=c("00003","00001"),format="tsv")
+#' url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),
+#'            startDate,endDate,'qw')
+#' url_wqp <- constructNWISURL(paste("USGS",siteNumber,sep="-"),c('01075','00029','00453'),
+#'            startDate,endDate,'wqp')
+#' url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',
+#'            statCd=c("00003","00001"),format="tsv")
 constructNWISURL <- function(siteNumber,parameterCd,startDate,endDate,service,statCd="00003", format="xml",expanded=FALSE,interactive=TRUE){
 
   startDate <- formatCheckDate(startDate, "StartDate", interactive=interactive)
diff --git a/R/formatCheckSiteNumber.r b/R/formatCheckSiteNumber.r
index c277b045a08c5d9f6b93aa2bdd97017d2dd07ed3..d673a4be2befa8d366bd907db5ab1213c93696bc 100644
--- a/R/formatCheckSiteNumber.r
+++ b/R/formatCheckSiteNumber.r
@@ -9,8 +9,6 @@
 #' @examples
 #' site<- '01234567'
 #' formatCheckSiteNumber(site)
-#' site_incorrect <- '1234567'
-#' formatCheckSiteNumber(site_incorrect)
 formatCheckSiteNumber <- function(siteNumber, interactive=TRUE){  #checks for a 8 digit number
   if (nchar(siteNumber) < 8){
     if (interactive){
diff --git a/R/renameColumns.R b/R/renameColumns.R
index 1a9774964a3dd3405d98916b7eb2714ca122be3b..e1a4cf7fb91d2a8f74e68e0a757125d4f3a59a63 100644
--- a/R/renameColumns.R
+++ b/R/renameColumns.R
@@ -9,7 +9,8 @@
 #' @examples
 #' # This example requires an internet connection to run
 #' siteNumber <- '05114000' 
-#' rawData <- retrieveNWISdvData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",statCd=c("00001","00003"))
+#' rawData <- retrieveNWISdvData(siteNumber,c("00010","00060","00300"),
+#'           "2001-01-01","2002-01-01",statCd=c("00001","00003"))
 #' rawData <- renameColumns(rawData)
 #' today <- as.character(Sys.Date())
 #' rawData2 <- retrieveNWISunitData(siteNumber,c("00010","00060"),today,today)