Gostaria de saber se alguém sabe como executar um modelo de mediação múltipla em R. Sei que o pacote de mediação permite vários modelos de mediação simples, mas quero executar um modelo que avalie vários modelos de mediação simultaneamente.
Estou supondo que posso fazer isso em uma estrutura SEM (análise de caminho), mas estava pensando se alguém novo de um pacote que computasse estatísticas típicas da análise de mediação para vários mediadores (efeitos indiretos, Proporção do efeito total via mediação etc.), e poderia utilizar o bootstrapping. Eu sei que isso é um tiro no escuro, mas pensei em perguntar antes de investir tempo desenvolvendo do zero.
ATUALIZAÇÃO: (11/11/2013)
Desde que fiz essa pergunta há alguns anos, aprendi a usar o maravilhoso pacote R lavaan para fazer mediação múltipla.
aqui está o código de exemplo:
model <- '
# outcome model
outcomeVar ~ c*xVar + b1*medVar1 + b2*medVar2
# mediator models
medVar1 ~ a1*xVar
medVar2 ~ a2*xVar
# indirect effects (IDE)
medVar1IDE := a1*b1
medVar2IDE := a2*b2
sumIDE := (a1*b1) + (a2*b2)
# total effect
total := c + (a1*b1) + (a2*b2)
medVar1 ~~ medVar2 # model correlation between mediators
'
Observe que a1, a2, b1, b2 e c são rótulos. Em seguida, execute o modelo:
fit <- sem(model, data=dataframe)
E veja a saída:
summary(fit, fit.measures=TRUE, standardize=TRUE, rsquare=TRUE)
Por fim, gere intervalos de confiança de autoinicialização:
boot.fit <- parameterEstimates(fit, boot.ci.type="bca.simple")
Consulte o site da lavaan para obter mais detalhes: http://lavaan.ugent.be/