Plot time series of decline data
# S3 method for one_box plot(x, xlim = range(time(x)), ylim = c(0, max(x)), xlab = "Time", ylab = "Fraction of initial", max_twa = NULL, max_twa_var = dimnames(x)[[2]][1], ...)
one_box
to be plottedfomc_fit <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE) fomc_pred <- one_box(fomc_fit) plot(sawtooth(fomc_pred, 3, 7), max_twa = 21)