[R] delete-d jackknife

[ufuk beyaztas]

Hi dear all,
Can aynone help me about delete-d jackknife
usually normal jackknife code for my data is:
n <- nrow(data)
y <- data$y
z <- data$z
theta.hat <- mean(y) / mean(z)
print (theta.hat)

theta.jack <- numeric(n)
for (i in 1:n)
theta.jack[i] <- mean(y[-i]) / mean(z[-i])
bias <- (n - 1) * (mean(theta.jack) - theta.hat)

print(bias)

but how i can apply delete-d jackknife when d=2 or 3.  
Thanks forany idea..
-- 
View this message in context: http://r.789695.n4.nabble.com/delete-d-jackknife-tp3058335p3058335.html
Sent from the R help mailing list archive at Nabble.com.