Gets the .A_i (list of bread matrices) slot
grab_bread_list(object)
# S4 method for sandwich_components
grab_bread_list(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)))
head(grab_bread_list(results@sandwich_components))
#> $`1`
#> [,1] [,2]
#> [1,] 1.000000 0
#> [2,] -2.752514 1
#>
#> $`2`
#> [,1] [,2]
#> [1,] 1.00000 0
#> [2,] 10.81578 1
#>
#> $`3`
#> [,1] [,2]
#> [1,] 1.000000 0
#> [2,] -3.842305 1
#>
#> $`4`
#> [,1] [,2]
#> [1,] 1.000000 0
#> [2,] 6.653878 1
#>
#> $`5`
#> [,1] [,2]
#> [1,] 1.00000 0
#> [2,] -11.75308 1
#>
#> $`6`
#> [,1] [,2]
#> [1,] 1.000000 0
#> [2,] -3.291574 1
#>