# NOT RUN {
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) ## 0.04965882
g_plus(pvec1) ## 2.146265
pvec2 <- c(a=2, v=2.5, zr=0.5, d=.2, sz=0.3, sv=1, t0=0.3, st0=.1,
RT=.550, precision=2.5)
g_minus(pvec2) ## 0.04194364
g_plus(pvec2) ## 1.94957
# }
Run the code above in your browser using DataLab