Gets the corrections from a geex object

get_corrections(object, ...)

# S4 method for geex
get_corrections(object)

# S4 method for geex_summary
get_corrections(object)

Arguments

object: a geex object
...: arguments passed to other methods

Examples

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)),
   corrections  = list(
     bias_correction_.1 = correction(fay_bias_correction, b = .1),
     bias_correction_.3 = correction(fay_bias_correction, b = .3))
   )

get_corrections(results)
#> $bias_correction_.1
#>            [,1]       [,2]
#> [1,] 0.10142666 0.03705019
#> [2,] 0.03705019 2.51737008
#> 
#> $bias_correction_.3
#>            [,1]       [,2]
#> [1,] 0.10142666 0.03705019
#> [2,] 0.03705019 2.51737008
#>