diff --git a/R/ggplot-geom_ma.R b/R/ggplot-geom_ma.R
index 959d4d5f..faea4d0d 100644
--- a/R/ggplot-geom_ma.R
+++ b/R/ggplot-geom_ma.R
@@ -107,7 +107,7 @@
 #'     geom_ma(ma_fun = SMA, n = 50) +                 # Plot 50-day SMA
 #'     geom_ma(ma_fun = SMA, n = 200, color = "red") + # Plot 200-day SMA
 #'     coord_x_date(xlim = c("2016-01-01", "2016-12-31"),
-#'                  ylim = c(75, 125))                     # Zoom in
+#'                  ylim = c(20, 30))                     # Zoom in
 #'
 #' # EVWMA
 #' AAPL %>%
@@ -115,7 +115,7 @@
 #'     geom_line() +                                                   # Plot stock price
 #'     geom_ma(aes(volume = volume), ma_fun = EVWMA, n = 50) +   # Plot 50-day EVWMA
 #'     coord_x_date(xlim = c("2016-01-01", "2016-12-31"),
-#'                  ylim = c(75, 125))                                  # Zoom in
+#'                  ylim = c(20, 30))                                  # Zoom in
 
 
 #' @rdname geom_ma
diff --git a/R/tq_get.R b/R/tq_get.R
index b30f5093..9eecc685 100644
--- a/R/tq_get.R
+++ b/R/tq_get.R
@@ -48,15 +48,13 @@
 #' @param ... Additional parameters passed to the "wrapped"
 #' function. Investigate underlying functions to see full list of arguments.
 #' Common optional parameters include:
-#' \itemize{
-#'   \item `from`: Standardized for time series functions in `quantmod`, `quandl`, `tiingo`, `alphavantager` packages.
+#'
+#' * `from`: Standardized for time series functions in `quantmod`, `quandl`, `tiingo`, `alphavantager` packages.
 #'   A character string representing a start date in
 #'   YYYY-MM-DD format.
-#'   \item `to`: Standardized for time series functions in `quantmod`, `quandl`, `tiingo`, `alphavantager` packages.
+#' * `to`: Standardized for time series functions in `quantmod`, `quandl`, `tiingo`, `alphavantager` packages.
 #'   A character string representing a end date in
 #'   YYYY-MM-DD format.
-#' }
-#'
 #'
 #' @return Returns data in the form of a `tibble` object.
 #'
diff --git a/data-raw/data-raw_scripts.R b/data-raw/data_raw_scripts.R
similarity index 100%
rename from data-raw/data-raw_scripts.R
rename to data-raw/data_raw_scripts.R
diff --git a/man/geom_ma.Rd b/man/geom_ma.Rd
index fc61aafa..80dfd446 100644
--- a/man/geom_ma.Rd
+++ b/man/geom_ma.Rd
@@ -150,7 +150,7 @@ AAPL \%>\%
     geom_ma(ma_fun = SMA, n = 50) +                 # Plot 50-day SMA
     geom_ma(ma_fun = SMA, n = 200, color = "red") + # Plot 200-day SMA
     coord_x_date(xlim = c("2016-01-01", "2016-12-31"),
-                 ylim = c(75, 125))                     # Zoom in
+                 ylim = c(20, 30))                     # Zoom in
 
 # EVWMA
 AAPL \%>\%
@@ -158,7 +158,7 @@ AAPL \%>\%
     geom_line() +                                                   # Plot stock price
     geom_ma(aes(volume = volume), ma_fun = EVWMA, n = 50) +   # Plot 50-day EVWMA
     coord_x_date(xlim = c("2016-01-01", "2016-12-31"),
-                 ylim = c(75, 125))                                  # Zoom in
+                 ylim = c(20, 30))                                  # Zoom in
 }
 \seealso{
 See individual modeling functions for underlying parameters: