powered by
jacknife_populations(x, sample_frac = 0.5, nreps = 1000)
data(nancycats) obs <- diff_stats(nancycats) jn <- jacknife_populations(nancycats) D_sampled <-jn[5,] hist(D_sampled) abline(h=obs$global)
Run the code above in your browser using DataLab