# NOT RUN {
data(OtherReturns)
input <- get.clusters.formatted(event.series = OtherReturns[, "SP500"],
response.series = OtherReturns[, "NiftyIndex"])
eventlist <- eesDates(input)
str(eventlist, max.level = 2)
# }
Run the code above in your browser using DataLab