Decomposition of X-11 algorithm

java_correct <- rjd3highfreq::check_java_version()  
  
knitr::opts_chunk$set(  
    echo = TRUE,  
    eval = java_correct  
)

Standard X-11 decomposition

library("rjd3highfreq")
#> 
#> Attache Paket: 'rjd3highfreq'
#> Das folgende Objekt ist maskiert 'package:stats':
#> 
#>     loess

x11decomp  <- x11plus(
    series = rjd3toolkit::ABS$X0.2.09.10.M,
    period = 12
)

plot(x11decomp)

Changing trend settings


x11decomp  <- x11plus(
    series = rjd3toolkit::ABS$X0.2.09.10.M,
    period = 12,
    trend_horizon = 99
)

plot(x11decomp)