Get the original time series from a seasonal adjustment object created by the dsa function. Can deviate from the input data as missings are filled up, usually using zoo::na.locf().
# NOT RUN {set.seed(123)
x = daily_sim(n=4)$original # series with length 4 yearsres <- dsa(x, cval=7, model=c(3,1,0),fourier_number = 13)
get_original(res)
# }