# NOT RUN {
# The code to create the sampleTData dataset from raw data is
sampleQData <- quotesCleanup(qDataRaw = sampleQDataRaw,
exchanges = "N", type = "standard", report = FALSE)
tradesAfterFirstCleaning <- tradesCleanup(tDataRaw = sampleTDataRaw,
exchanges = "N", report = FALSE)
sampleTData <- tradesCleanupUsingQuotes(
tData = tradesAfterFirstCleaning,
qData = sampleQData,
lagQuotes = 0)[, c("DT", "SYMBOL", "PRICE", "SIZE")]
# Only some columns are included. These are the ones that were historically included.
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab