data-raw/monthly_rolling_vol.R

data(final_rolling_vol)
library(base)

# Month end reported Rolling Vols
monthly_rolling_vol <- final_rolling_vol[endpoints(final_rolling_vol$Date, on = "months"), ]
#monthly_rolling_vol$Date <- as.Date(monthly_rolling_vol$Date, origin="1960-10-01")
johngil/gilheany.thesis documentation built on May 8, 2019, 7:48 p.m.