# NOT RUN {
apiKey <- "{Please insert your aPI key here}"
The URL is already set by default
options(EventStudy.KEY = apiKey)
# initialize object
estSetup <- EventStudyAPI$new()
# get S&P500 example data
getSP500ExampleFiles()
# set Event Study parameters
estType <- "arc"
dataFiles <- c("request_file" = "01_RequestFile.csv",
"firm_data" = "02_firmData.csv",
"market_data" = "03_MarketData.csv")
resultPath <- "results"
# Perform Event Study
estResult <- estSetup$performDefaultEventStudy(estType = estType,
dataFiles = dataFiles,
destDir = resultPath)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab