library(dplyr)
df <- ts_to_tbl(AirPassengers) %>% select(-index)
augmented_data <- df %>%
ts_brownian_motion_augment(
.date_col = date_col,
.value_col = value,
.time = 144
)
augmented_data %>%
ts_brownian_motion_plot(.date_col = date_col, .value_col = value)
Run the code above in your browser using DataLab