baryvel(dje,deq)
The projected velocity towards the celestial object can be computed from: v = dvelb[1]*cos(dec)*cos(ra) + dvelb[2]*cos(dec)*sin(ra) + dvelb[3]*sin(dec)
The algorithm here is taken from FORTRAN program of Stumpff (1980). Stumpf claimed an accuracy of 42 cm/s for the velocity. A comparison with the JPL FORTRAN planetary ephemeris program PLEPH found agreement to within about 65 cm/s between 1986 and 1994. The option in IDL astrolib's baryvel.pro to use the full JPL ephemeris is not implemented in R.