# NOT RUN {
#Rank jump test using simulated sample data that includes jumps
## pretend that the marketPrice is the first asset in the data:
marketPrice <- sample5MinPricesJumps[,1]
## construct stockPrice as a list:
stockPrice <- list()
for (i in 1:(ncol(sample5MinPricesJumps)-1)) {
stockPrice[[i]] <- sample5MinPricesJumps[,i+1]
}
## This can take a long time due to the bootstrapping
rankTest <- rankJumpTest(marketPrice, stockPrice, coarseFreq = 10, k = 1, alpha = c(5,3),
tz = "GMT", marketOpen = "09:30:00", marketClose = "16:00:00")
# Plot the detected stock jump detections
plot(rankTest$stockJumpDetections)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab