# \donttest{
ts_plot(
ts_scale(ts_c(
Male = mdeaths,
Female = fdeaths,
`First principal compenent` = -ts_prcomp(ts_c(mdeaths, fdeaths))[, 1]
)),
title = "Deaths from lung diseases",
subtitle = "Normalized values"
)
ts_plot(ts_c(
male = mdeaths, female = fdeaths,
ts_forecast(ts_c(`male (fct)` = mdeaths, `female (fct)` = fdeaths))),
title = "Deaths from lung diseases",
subtitle = "Exponential smoothing forecast"
)
ts_plot(
`Raw series` = AirPassengers,
`Adjusted series` = ts_seas(AirPassengers),
title = "Airline passengers",
subtitle = "X-13 seasonal adjustment"
)
# See ?imputeTS::na_interpolation for options
dta <- ts_c(mdeaths, fdeaths)
dta[c(1, 3, 10), c(1, 2)] <- NA
head(ts_na_interpolation(dta, option = "spline"))
ts_dygraphs(ts_c(mdeaths, EuStockMarkets))
# }
Run the code above in your browser using DataLab