library(orderbook)
filename <- system.file("extdata", "sample.txt",
package = "orderbook")
ob <- orderbook(file = filename)
ob <- read.orders(ob, 500)
show(ob)
summary(ob)
display(ob)Run the code above in your browser using DataLab