# NOT RUN {
n <- c(1,1,-3,-1,2)
p <- 100 + 1:length(n)
timestamp <- 1:length(n)
split_trades(n, p, timestamp)
split_trades(n, p, timestamp, TRUE) ## almost like the original series
scale_trades(n, p, timestamp)
scale_trades(n, p, timestamp, TRUE) ## each _trade_ gets scaled
# }
Run the code above in your browser using DataLab