# NOT RUN {
#The code to create sampleQData from raw data is
sampleQData <- quotesCleanup(
qDataRaw = sampleQDataRaw, exchanges = "N", type = "standard",
report = FALSE)[, c("SYMBOL", "BID", "BIDSIZ", "OFR", "OFRSIZ", "MODE")]
# These are the historically included columns.
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab