September 1, 2017
A package with miscellaneous functions relating to computation of various financial measures. Currently, it has three modules:
| Year | Number of orders | Time (core) | Time (overall) |
|---|---|---|---|
| 2009 | 65,083 | 18.74 | 74 |
| 2010 | 1,271,870 | 48.96 | 140 |
| 2011 | 3,013,716 | 105 | 276 |
| 2012 | 3,248,293 | 129.45 | 301 |
| 2013 | 5,188,148 | 178.40 | 424 |
| 2014 | 4,113,407 | 142.75 | 386 |
| Year | Number of orders | Time (core) | Time (overall) |
|---|---|---|---|
| 2009 | 722,517 | 70.29 | 124 |
| 2010 | 2,506,027 | 122.29 | 426 |
| 2011 | 4,945,747 | 311.29 | 519 |
| 2012 | 10,401,516 | 517.26 | 780 |
| 2013 | 14,288,199 | 716.56 | 1020 |
| 2014 | 16,591,150 | 1115.02 | 1620 |
d <- as.Date("2014-05-23")
system.time(
atintensity <- iddb(dates = d,
symbol = "INFY",
segment = "CASH",
measures = "atintensity",
type = "value",
jiffylevel = FALSE)
)
system.time(
mbp <- iddb(dates = d,
symbol = "INFY",
segment = "CASH",
measures = "mbp",
fields =
"ltp")
)
vol <-function(x) {
x <-xts::to.minutes(x, OHLC = FALSE)
vol <- sd(x/100)
return(vol)
}
system.time(
comm <- iddb(dates = d,
symbol = "CASTORSEED",
segment = "FAO",
measures = "mbp",
exchange = "NCDEX",
fields = "ltp")
)
vol(comm[[1]])
d <- as.Date("2014-05-27")
mbp <- iddb(dates = d,
symbol = "3IINFOTECH",
segment = "CASH",
measures = "mbp",
fields = c("bbp",
"bsp"),
depth = 5,
generate = TRUE,
wait = TRUE,
showConsole = TRUE)
from <- as.Date("2014-05-22")
to <- as.Date("2014-05-28")
mbp <- iddb(from = from,
to = to,
symbol = "3IINFOTECH",
segment = "CASH",
measures = "mbp",
exchange = "NSE",
fields = c("bbp", "bsp", "ltp"),
depth = 5,
generate = TRUE,
yield = FALSE,
ncpu = 3)