knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Recession Probabilities

library(quantmod)
getSymbols("RECPROUSM156N", src = "FRED")
library(econModel)
getSymbols("RECPROUSM156N", src = "ALFRED", LookBack = 4)
index(RECPROUSM156N) <- index(RECPROUSM156N) + 61
index(RECPROUSM156N.vin) <- index(RECPROUSM156N.vin) + 61
library(dygraphs)
dygraph(merge(RECPROUSM156N, RECPROUSM156N.vin))


AndreMikulec/econModel documentation built on June 30, 2021, 9:48 a.m.