if (FALSE) {
# get files for our S&P500 example; 3 files are written in the current
# working directory
getSP500ExampleFiles()
# Generate a new parameter object
avcParams <- AVCApplicationInput$new()
# set test statistics
arcParams$setBenchmarkModel("garch")
# Setup API object
apiKey <- "{Your API key}"
estSetup <- EventStudyAPI$new()
estSetup$authentication(apiKey)
# Perform Event Study
estSetup$performEventStudy(estParams = avcParams,
dataFiles = c("request_file" = "01_RequestFile.csv",
"firm_data" = "02_firmData.csv",
"market_data" = "03_marketData.csv"))
# Download task results and save them in the actiual working directory
estSetup$getTaskResults()
}
Run the code above in your browser using DataLab