# NOT RUN {
# simple time series
AA = c(1:100) + rnorm(100)
BB = c(1:100) + rnorm(100)
CC = AA + BB + rnorm(100)
date = seq.Date(from = as.Date('2000-01-01'), by = 'month', length.out = 100)
Data = data.frame(date = date, AA, BB, CC)
# add regime
Data = dplyr::mutate(Data, reg = dplyr::if_else(AA > median(AA), 1, 0))
# local projection forecasts
rlp =
sovereign::RLP(
data = Data,
regime = 'reg',
horizon = c(1:10),
freq = 'month',
p = 1,,
type = 'const',
NW = TRUE,
NW_lags = 1,
NW_prewhite = FALSE)
# impulse response function
rirf = sovereign::rlp_irf(rlp)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab