if (FALSE) {
# recreate the series with latest data
library(tsbox)
library(dplyr)
library(dataseries)
library(imputeTS)
dataseries::ds("ch_snb_capchstocki.gdr") %>%
ts_default() %>%
ts_regular() %>%
imputeTS::na_interpolation(option = "spline") %>%
ts_span(start = 2005)
}
Run the code above in your browser using DataLab