head(ts_compound(ts_pc(ts_c(fdeaths, mdeaths))))
head(ts_index(ts_df(ts_c(fdeaths, mdeaths)), "1974-02-01"))
# \donttest{
ts_plot(
`My Expert Knowledge` = ts_chain(
mdeaths,
ts_compound(ts_bind(ts_pc(mdeaths), 15, 23, 33))),
`So Far` = mdeaths,
title = "A Very Manual Forecast"
)
# average of 1974 = 1
ts_index(mdeaths, c("1974-01-01", "1974-12-31"))
# }
Run the code above in your browser using DataLab