Extracts models from a mediation_model object

When conducting a joint-significant test, different models are fitted to the data. This function helps accessing the models used in an object of class mediation_model.

extract_models(mediation_model)

Arguments

mediation_model

An object of class mediation_model.

Value

A list of lm objects.

See also

Other extract functions: extract_model(), extract_tidy_models()

Examples

data(ho_et_al)
ho_et_al$condition_c <- build_contrast(ho_et_al$condition,
                                       "Low discrimination",
                                       "High discrimination")
my_model <-
  mdt_simple(data = ho_et_al,
             IV = condition_c,
             DV = hypodescent,
             M = linkedfate)

extract_models(my_model)
#> $`X -> Y`
#> 
#> Call:
#> lm(formula = .x, data = data)
#> 
#> Coefficients:
#> (Intercept)  condition_c  
#>      4.5676       0.1714  
#> 
#> 
#> $`X -> M`
#> 
#> Call:
#> lm(formula = .x, data = data)
#> 
#> Coefficients:
#> (Intercept)  condition_c  
#>      5.1580       0.7717  
#> 
#> 
#> $`X + M -> Y`
#> 
#> Call:
#> lm(formula = .x, data = data)
#> 
#> Coefficients:
#> (Intercept)  condition_c   linkedfate  
#>     3.60373      0.02725      0.18686  
#> 
#>