pVec1 <- c(a=2, v=2.5, zr=0.5, d=0, sz=0.3, sv=1, t0=0.3, st0=0,
RT=.550, precision=2.5)
g_minus(pVec1)
## [1] 0.04965882
g_plus(pVec1)
## [1] 2.146265
pVec2 <- c(a=2, v=2.5, zr=0.5, d=0, sz=0.3, sv=1, t0=0.3, st0=0,
RT=.550, precision=20)
## system.time(d1 <- g_plus_parallel(pVec2))
## user system elapsed
## 135.708 0.000 12.022
## system.time(d2 <- g_plus(pVec2))
## user system elapsed
## 104.516 0.000 104.490
Run the code above in your browser using DataLab