azadag
5/15/2018 - 9:15 PM

Yearly to Quarterly dissaggregation

change data from yearly to quarterly etc...

interp
content_copyfile_download
library(zoo)
library(tempdisagg)
CurrentYearT0 <- 2016
x.Date <- (c(CurrentYearT0, CurrentYearT0 + 1, CurrentYearT0 + 2, CurrentYearT0 + 3, CurrentYearT0 +4 ,CurrentYearT0 +5))
val <- as.ts(na.approx(zoo(x = c(89017,NA,NA,NA,NA,98369), x.Date)))
val2 <-predict(td(val~1, to='quarterly', method='denton-cholette', conversion = "last"))