# NOT RUN {
data(GDPC1)
log_RGDP <- 100*log(GDPC1)
gdp_cycle <- yth_filter(log_RGDP, h = 8, p = 4, output = c("cycle", "random"), family = gaussian)
main <- "Log of Real GDP cycle and random walk"
plot(gdp_cycle, grid.col = "white", legend.loc = "topright", main = main)
# }
Run the code above in your browser using DataLab