Mid-cycle rate cuts

diff(cli_g20)["1998-09::1999-09"]
diff(cli_g20)["1995-07::1996-07"]
diff(cli_g20)["1989-07::1990-07"]
diff(cli_g20)["1987-10::1988-10"]
diff(cli_g20)["1983-10::1984-10"]
diff(cli_g20)["1971-01::1972-01"]

diff(to.monthly(NFCI)[,4])["1998-09::1999-09"]
diff(to.monthly(NFCI)[,4])["1995-07::1996-07"]
diff(to.monthly(NFCI)[,4])["1989-07::1990-07"]
diff(to.monthly(NFCI)[,4])["1987-10::1988-10"]
diff(to.monthly(NFCI)[,4])["1983-10::1984-10"]
diff(to.monthly(NFCI)[,4])["1971-01::1972-01"]

monthlyReturn(GSPC)["1998-09::1999-09"]
monthlyReturn(GSPC)["1995-07::1996-07"]
monthlyReturn(GSPC)["1989-07::1990-07"]
monthlyReturn(GSPC)["1987-10::1988-10"]
monthlyReturn(GSPC)["1983-10::1984-10"]
monthlyReturn(GSPC)["1971-01::1972-01"]


monthlyReturn(GSPC)["1998-09::1999-09"] %>% sum()
monthlyReturn(GSPC)["1995-07::1996-07"] %>% sum()
monthlyReturn(GSPC)["1989-07::1990-07"] %>% sum()
monthlyReturn(GSPC)["1987-10::1988-10"] %>% sum()
monthlyReturn(GSPC)["1983-10::1984-10"] %>% sum()
monthlyReturn(GSPC)["1971-01::1972-01"] %>% sum()