# NOT RUN {
#The code to create sampleTData from raw data is
tradesAfterFirstCleaning <- tradesCleanup(tDataRaw = sampleTDataRaw,
exchanges = "N", report = FALSE)
cleanedQuotes <- quotesCleanup(qDataRaw = sampleQDataRaw, exchanges = "N",
type = "standard", report = FALSE)
sampleTData <- tradesCleanupUsingQuotes(tData = tradesAfterFirstCleaning,
qData = cleanedQuotes, lagQuotes = 2)
sampleTData <- sampleTData[,c("SYMBOL", "EX", "PRICE", "SIZE", "COND", "CORR", "G127")]
# These are the historically included columns.
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab