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