# NOT RUN {
# The code to create the sampleTDataMicroseconds dataset from raw data is
sampleQDataMicroseconds <- quotesCleanup(qDataRaw = sampleQDataRawMicroseconds,
                                         exchanges = "N", type = "standard", report = FALSE)
tradesAfterFirstCleaning <- tradesCleanup(tDataRaw = sampleTDataRawMicroseconds, 
                                          exchanges = "N", report = FALSE)
sampleTDataMicroseconds <- tradesCleanupUsingQuotes(
  tData = tradesAfterFirstCleaning,
  qData = sampleQDataMicroseconds,
  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