# 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.cumsum(es.w, is.pc = FALSE, base = 0)
inference.bootstrap(es.w = eventtime,
to.plot = FALSE)
# }
Run the code above in your browser using DataLab