# NOT RUN {
data(StockPriceReturns)
data(SplitDates)
es.results <- phys2eventtime(z = StockPriceReturns,
events = SplitDates,
width = 5)
es.w <- window(es.results$z.e, start = -5, end = +5)
eventtime <- remap.cumprod(es.w,
is.pc = TRUE,
is.returns = TRUE,
base = 100)
print(eventtime[as.character(-3:3), ])
# }
Run the code above in your browser using DataLab