analisis.mediacion.fnc

Objetivo

Lleva a cabo análisis de mediación "causal" de la librería mediation, siguiendo el procedimiento definido por Baron RM, Kenny DA (1986). “The Moderator-Mediator Variable Distinction in Social Psychological Research: Conceptual, Strategic, and Statistical Considerations.” Journal ofPersonality and Social Psychology, 51(6), 1173–1182. 1

analisis.mediacion.fnc

Partiremos de la base de datos jobs (Job Search Intervention Study) de la librería mediation.

Deseamos poner a prueba un modelo de mediación donde demostrar que el efecto de la variable independiente treat (sujetos que asisten o no a un programa para desempleados) sobre los valores de la dependiente depress2 (valores de depresión de los desempleados) se ve mediatizado por la variable mediadora job_seek (autoeficacia percibida en la búsqueda de empleo).

El usuario debe crear una lista (en este ejemplo (mediacion) con al menos 3 elementos: vd (la variable dependiente sobre la que se desea evaluar el efecto), vi (variable independiente sobre la que se evaluará el efecto directo y el indirecto a través de la variable mediadora) y m (variable mediadora).

Si desea que el modelo contenga además otras variables estas deben ser incluidas en el 4 elemento de esa lista con el nombre de covariante.

Si se desea probar además la interacción de la variable independiente y la moduladora se incluirá en la llamada a la función el argumento interaccion.vi.m=T.

Si se desea una mediación modulada por una covariante el usuario incluirá el argumento med.mod, que deberá ser una lista con el nombre de la variable moduladora y como valores (opcionales) aquellos dos sobre los que se desea probar la modulación. De no incluir ninguno (el usuario deberá incluir NA como valor), la función lo hará sobre los cuartiles primero y tercero de la variable moduladora (Q1 vs Q3).

MEDIACION BASICA

mediacion=list(vd='depress2',vi='treat',m='job_seek')

analisis.mediacion.fnc(jobs,mediacion)

Automáticamente se crean dos figuras. La de la izquierda nos presenta los valores estimados en los dos modelos de regresión, así como los parámetros estimados para la mediación: ACME (Average Causal Mediation Effects), ADE (Average Direct Effect) así como el efecto total. La figura de la derecha, nos ofrece los intervalos de confianza bootstrap calculados para los tres efectos. Tal y como podemos ver, todos los intervalos contienen el valor 0 con lo que concluímos que no se dan ninguno de los efectos estimados.

res_mediacion

MEDIACION CON INTERACCION TRATAMIENTO x MEDIADORA

mediacion=list(vd='depress2',vi='treat',m='job_seek')

analisis.mediacion.fnc(jobs,mediacion, interaccion.vi.m=T)

MEDIACION CON COVARIANTES

mediacion=list(vd='depress2',vi='treat',m='job_seek',

covariante=c('age','econ_hard'))

analisis.mediacion.fnc(jobs,mediacion)

MEDIACION MODULADA CON Y SIN PUNTOS DE CORTE

Cuando el investigador sospecha que el efecto de mediación puede estar modulado por una variable covariante medida antes del tratamiento puede llevar a cabo un análisis de mediación moderada por dicha variable.

Seguidamente asumiremos que la variable edad puede dar lugar a diferentes valores del parámetro de mediación estimado según el sujeto tenga 20 o 60 años. Para ello debemos incluir el argumento lista med.mod con el nombre de dicha variable y los dos valores sobre los que se desea probar la modulación. Si el usuario no indica valor alguno (incluye entonces el valor NA), la función lo hará sobre el primer y tercer cuartil de la variable (si esta es numérica) o sobre los dos primeros niveles si la modulación la realizase un factor.

mediacion=list(vd='depress2',vi='treat',m='job_seek')

analisis.mediacion.fnc(jobs,mediacion,

med.mod= list(age=c(20,60)))

analisis.mediacion.fnc(jobs,mediacion,

med.mod=list(age=NA))

analisis.mediacion.fnc(jobs,mediacion,

med.mod=list(sex=NA))

MEDIACION MODULADA CON COVARIANTES

mediacion=list(vd='depress2',vi='treat',m='job_seek',

covariante=c('age','econ_hard'))

analisis.mediacion.fnc(jobs,mediacion,

med.mod=list(age=NA))

analisis.mediacion.fnc(jobs,mediacion,

med.mod=list(age=c(20,60)))

MEDIACION EN MODELOS JERARQUICOS

Si deseas realizar un análisis de mediación para modelos jerárquicos deberás incluir el argumento random con el nombre de la variable que controla el nivel jerárquico superior.

Utilizaremos como ejemplo el modelo jerárquico que utilizamos en el apartado de modelos jerárquicos donde investigábamos el rendimiento en matemáticas de un número determinado de alumnos (primer nivel jerárquico) que asisten a diferentes escuelas (segundo nivel jerárquico) a partir de ciertas variables de primer y segundo nivel.

Cargaremos nuevamente las bases de datos necesarias para estimar dicho modelo de mediación. Es altamente conveniente que acudas al apartado de modelos jerárquicos para no solo comprender el proceso de lectura y transformación de los datos. Además es preceptivo entender el concepto mismo de regresión jerárquica que se explica en ese apartado.

colegios= lee.archivo.fnc('jerarquico.colegios.Rdata')

alumnos= lee.archivo.fnc('jerarquico.alumnos.Rdata')

alumnos=fundir.objetos.fnc(alumnos,colegios, mas.var=T,

que.var='School')

alumnos= centra.variable.fnc(alumnos, variable='SES')

Propondremos un modelo de mediación donde la variable dependiente rendimiento en matemáticas se ve afectada por el tipo de Sector al que pertenece el colegio (Público o Católico) como efecto directo y propondremos un efecto de mediación de la variable nivel socioeconómico del niño centrada (c.SES).

mediacion=list(vd='MathAch', vi='Sector', m='c.SES')

analisis.mediacion.fnc(alumnos, mediacion=mediacion,

random='School')

#------------------------------------------------------------------

# ANALISIS DE MEDIACIÓN

#------------------------------------------------------------------

$vd

[1] "MathAch"

$vi

[1] "Sector"

$m

[1] "c.SES"

$estimacion.mediadora.dependiente

[1] "Lineal jerarquico"

$estimacion.vd.dependiente

[1] "Lineal jerarquico"

$Mediacion.Average.Causal.Mediation.Effects

Causal Mediation Analysis

Quasi-Bayesian Confidence Intervals

Mediator Groups: School

Outcome Groups: School

Output Based on Overall Averages Across Groups

Estimate 95% CI Lower 95% CI Upper p-value

ACME 0.707 0.415 1.023 0

ADE 2.065 1.425 2.744 0

Total Effect 2.772 2.071 3.493 0

Prop. Mediated 0.253 0.157 0.367 0

Sample Size Used: 7185

Simulations: 1000

Vemos que existe un efecto de mediación de la variable Sector (variable de segundo nivel jerárquico) sobre el rendimiento del alumno en Matemáticas a través de la variable nivel socio-económico del alumno. Así mismo existe efecto directo del la variable Sector.