towards #477

updating files.

R/augment-ts-acceleration.R

@@ -38,8 +38,11 @@
 #' @return
 #' A augmented tibble
 #'
+#' @name ts_acceleration_augment
+NULL
+
 #' @export
-#
+#' @rdname ts_acceleration_augment
 
 ts_acceleration_augment <- function(.data
                                    , .value

R/augment-ts-velocity.R

@@ -36,10 +36,13 @@
 #' ts_velocity_augment(data_tbl, b)
 #'
 #' @return
-#' A augmented tibble
+#' A augmented
 #'
+#' @name ts_velocity_augment
+NULL
+
 #' @export
-#
+#' @rdname ts_velocity_augment
 
 ts_velocity_augment <- function(.data, .value, .names = "auto"){
 

R/boilerplate-autoarima-xgboost.R

@@ -68,9 +68,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_arima_xgboost
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_arima_xgboost
 
 ts_auto_arima_xgboost <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                                   .prefix = "ts_arima_boost", .tune = TRUE, .grid_size = 10,

R/boilerplate-autoarima.R

@@ -68,9 +68,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_arima
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_arima
 
 ts_auto_arima <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                           .prefix = "ts_arima", .tune = TRUE, .grid_size = 10,

R/boilerplate-croston.R

@@ -70,9 +70,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_croston
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_croston
 
 ts_auto_croston <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                             .prefix = "ts_croston", .tune = TRUE, .grid_size = 10,

R/boilerplate-exp-smoothing.R

@@ -69,9 +69,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_exp_smoothing
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_exp_smoothing
 
 ts_auto_exp_smoothing <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                                   .prefix = "ts_exp_smooth", .tune = TRUE, .grid_size = 20,

R/boilerplate-glmnet.R

@@ -66,9 +66,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_glmnet
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_glmnet
 
 ts_auto_glmnet <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                            .prefix = "ts_glmnet", .tune = TRUE, .grid_size = 10,

R/boilerplate-lm.R

@@ -54,9 +54,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_lm
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_lm
 
 ts_auto_lm <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                        .prefix = "ts_lm", .bootstrap_final = FALSE){

R/boilerplate-mars.R

@@ -66,9 +66,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_mars
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_mars
 
 ts_auto_mars <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                          .prefix = "ts_mars", .tune = TRUE, .grid_size = 10,

R/boilerplate-nnetar.R

@@ -66,9 +66,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_nnetar
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_nnetar
 
 ts_auto_nnetar <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                            .prefix = "ts_nnetar", .tune = TRUE, .grid_size = 10,

R/boilerplate-prophet-reg.R

@@ -66,9 +66,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_prophet_reg
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_prophet_reg
 
 ts_auto_prophet_reg <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                                 .prefix = "ts_prophet_reg", .tune = TRUE, .grid_size = 10,

R/boilerplate-prophet-xgboost.R

@@ -67,9 +67,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_prophet_boost
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_prophet_boost
 
 ts_auto_prophet_boost <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                                   .prefix = "ts_prophet_boost", .tune = TRUE, .grid_size = 10,

R/boilerplate-smooth-es.R

@@ -69,9 +69,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_smooth_es
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_smooth_es
 
 ts_auto_smooth_es <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                               .prefix = "ts_smooth_es", .tune = TRUE, .grid_size = 10,

R/boilerplate-svm-poly.R

@@ -68,9 +68,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_svm_poly
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_svm_poly
 
 ts_auto_svm_poly <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                              .prefix = "ts_svm_poly", .tune = TRUE, .grid_size = 10,

R/boilerplate-svm-rbf.R

@@ -68,9 +68,11 @@
 #'
 #' @return
 #' A list
-#'
+#' @name ts_auto_svm_rbf
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_svm_rbf
 
 ts_auto_svm_rbf <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                             .prefix = "ts_svm_rbf", .tune = TRUE, .grid_size = 10,

R/boilerplate-theta.R

@@ -56,8 +56,11 @@
 #' @return
 #' A list
 #'
+#' @name ts_auto_theta
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_theta
 
 ts_auto_theta <- function(.data, .date_col, .value_col, .rsamp_obj,
                           .prefix = "ts_theta", .bootstrap_final = FALSE){

R/boilerplate-xgboost.R

@@ -64,8 +64,11 @@
 #' @return
 #' A list
 #'
+#' @name ts_auto_xgboost
+NULL
+
 #' @export
-#'
+#' @rdname ts_auto_xgboost
 
 ts_auto_xgboost <- function(.data, .date_col, .value_col, .formula, .rsamp_obj,
                             .prefix = "ts_xgboost", .tune = TRUE, .grid_size = 10,

R/calibrate-plot-list.R

@@ -65,11 +65,11 @@
 #'
 #' @return
 #' The original time series, the simulated values and a some plots
-#'
+#' @name calibrate_and_plot
+NULL
+
 #' @export calibrate_and_plot
-#'
-# *** PLOTTING UTILITY *** ----
-# - Calibrate & Plot
+#' @rdname calibrate_and_plot
 calibrate_and_plot <- function(..., .type = "testing", .splits_obj
                                , .data, .print_info = TRUE
                                , .interactive = FALSE){

R/diagnostic_plots.R

@@ -30,9 +30,11 @@
 #'
 #' @return
 #' A `ggplot2` layers object
-#'
+#' @name ts_random_walk_ggplot_layers
+NULL
+
 #' @export
-#'
+#' @rdname ts_random_walk_ggplot_layers
 
 # Function for obtaining ggplot layers to commonly apply to subsequent plots
 ts_random_walk_ggplot_layers <- function(.data) {
@@ -128,9 +130,11 @@ ts_random_walk_ggplot_layers <- function(.data) {
 #'
 #' @return
 #' A static ggplot2 graph or if .interactive is set to TRUE a plotly plot
-#'
+#' @name ts_qc_run_chart
+NULL
+
 #' @export
-#'
+#' @rdname ts_qc_run_chart
 
 ts_qc_run_chart <- function(.data, .date_col, .value_col, .interactive = FALSE,
                             .median = TRUE, .cl = TRUE, .mcl = TRUE, .ucl = TRUE,

R/helper-model-extraction.R

@@ -29,9 +29,11 @@
 #' }
 #'
 #' @return A model description
-#'
+#' @name model_extraction_helper
+NULL
+
 #' @export
-#'
+#' @rdname model_extraction_helper
 
 model_extraction_helper <- function(.fit_object){
 

R/internal-event-backward.R

@@ -16,9 +16,11 @@
 #'
 #' @return
 #' A tibble.
-#'
+#' @name internal_ts_backward_event_tbl
+NULL
+
 #' @export
-#'
+#' @rdname internal_ts_backward_event_tbl
 
 internal_ts_backward_event_tbl <- function(.data, .horizon){
 

R/internal-event-both.R

@@ -16,9 +16,11 @@
 #'
 #' @return
 #' A tibble.
-#'
+#' @name internal_ts_both_event_tbl
+NULL
+
 #' @export
-#'
+#' @rdname internal_ts_both_event_tbl
 
 internal_ts_both_event_tbl <- function(.data, .horizon){
 

R/internal-event-forward.R

@@ -16,9 +16,11 @@
 #'
 #' @return
 #' A tibble.
-#'
+#' @name internal_ts_forward_event_tbl
+NULL
+
 #' @export
-#'
+#' @rdname internal_ts_forward_event_tbl
 
 internal_ts_forward_event_tbl <- function(.data, .horizon){
 

R/simulate-ts-arima.R

@@ -43,9 +43,11 @@
 #'
 #' @return
 #' A list object.
-#'
+#' @name ts_arima_simulator
+NULL
+
 #' @export
-#'
+#' @rdname ts_arima_simulator
 
 ts_arima_simulator <- function(.n = 100, .num_sims = 25, .order_p = 0,
                                .order_d = 0, .order_q = 0, .ma = c(), .ar = c(),

R/step-ts-acceleration.R

@@ -73,8 +73,11 @@
 #'
 #' rec_obj %>% prep() %>% juice()
 #'
+#' @name step_ts_acceleration
+NULL
+
 #' @export
-#'
+#' @rdname step_ts_acceleration
 #' @importFrom recipes prep bake rand_id
 
 step_ts_acceleration <- function(recipe,

R/step-ts-velocity.R

@@ -72,9 +72,11 @@
 #' bake(prep(rec_obj), data_tbl)
 #'
 #' rec_obj %>% prep() %>% juice()
-#'
+#' @name step_ts_velocity
+NULL
+
 #' @export
-#'
+#' @rdname step_ts_velocity
 #' @importFrom recipes prep bake rand_id
 
 step_ts_velocity <- function(recipe,

R/tidy-fft.R

@@ -82,9 +82,11 @@
 #'
 #' @return
 #' A list object returned invisibly.
-#'
+#' @name tidy_fft
+NULL
+
 #' @export
-#'
+#' @rdname tidy_fft
 
 tidy_fft <- function(.data, .date_col, .value_col, .frequency = 12L,
                      .harmonics = 1L, .upsampling = 10L){