The package, jackknifeR includes the functions to perform delete-d Jackknife.
library(jackknifeR) ## basic example code j.cor <- jackknife.cor(cars, d = 2) j.cor