Kod 3.13 - NMSwBE

# Kod 3.13 Jackknife

library(bootstrap)

xdata <- matrix(rnorm(30),ncol=2)

n <- 15

theta <- function(x,xdata){ cor(xdata[x,1],xdata[x,2]) }

results <- jackknife(1:n,theta,xdata)