search for: forany

...<- 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.