Grabs the .A (bread matrix) slot
grab_bread(object)
# S4 method for sandwich_components
grab_bread(object)a sandwich_components object
myee <- function(data){
function(theta){
c(data$Y1 - theta[1],
(data$Y1 - theta[1])^2 - theta[2])
}
}
results <- m_estimate(
estFUN = myee,
data = geexex,
root_control = setup_root_control(start = c(1,1)))
grab_bread(results@sandwich_components)
#> [,1] [,2]
#> [1,] 1.000000e+02 0
#> [2,] -1.517693e-10 100