# NOT RUN {
set.seed(123)
suppressPackageStartupMessages(library(timetk))
suppressPackageStartupMessages(library(purrr))
suppressPackageStartupMessages(library(dplyr))
# Make A Series of Dates ----
ts_tbl <- tk_make_timeseries(
start = "2019-01-01"
, by = "day"
, length_out = "1 year 6 months"
)
# Set Values ----
values <- runif(548, 5, 10)
# Make tibble ----
df_tbl <- tibble(x = ts_tbl, y = values) %>% set_names("Date","Values")
ts_alos_plt(
.data = df_tbl, .date_col = Date, .value_col = Values, .by = "month"
, .interactive = FALSE
)
# }
Run the code above in your browser using DataLab