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)
An object of class mediation_model
.
A list of lm
objects.
Other extract functions:
extract_model()
,
extract_tidy_models()
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
#>
#>