# h_get_empirical obtain empirical covariance

    structure(c(0.276669200825678, -0.276669200825678, -0.276669200825678, 
    0.681966674143019), dim = c(2L, 2L))

# h_get_empirical obtain jackknife covariance

    structure(c(0.282126502688394, -0.282126502688394, -0.282126502688394, 
    0.696645916580453), dim = c(2L, 2L))

---

    structure(c(0.27938383855849, -0.27938383855849, -0.27938383855849, 
    0.689265455017577), dim = c(2L, 2L))