Dear all,
I'm trying to run a power analysis for a latent mediation model using the simsem package.
I defined my population (based on lavaan output on piolot data indicating good overall fit) and my analysis models as follows:
population.model <- "WB =~ 1*gs.ind1 + 1.004*gs.ind2
EXT =~ 1*ext.ind1 + 0.757*ext.ind2
AUF =~ 1*auf.ind1 + 1.103*auf.ind2
WB ~ 0.051*EXT + 0.580*AUF
AUF ~ 0.302*EXT
gs.ind1 ~ 3.911*1
gs.ind2 ~ 3.860*1
ext.ind1 ~ 3.918*1
ext.ind2 ~ 3.660*1
auf.ind1 ~ 3.236*1
auf.ind2 ~ 3.099*1
WB ~ 0*1
EXT ~ 0*1
AUF ~ 0*1
gs.ind1 ~~ 0.061*gs.ind1
gs.ind2 ~~ 0.123*gs.ind2
ext.ind1 ~~ 0.096*ext.ind1
ext.ind2 ~~ 0.420*ext.ind2
auf.ind1 ~~ 0.155*auf.ind1
auf.ind2 ~~ 0.050*auf.ind2
WB ~~ 0.323*WB
EXT ~~ 0.603*EXT
AUF ~~ 0.285*AUF"
analysis.model <- "WB =~ gs.ind1 + gs.ind2
EXT =~ ext.ind1 + ext.ind2
AUF =~ auf.ind1 + auf.ind2
WB ~ c*EXT + b*AUF
AUF ~ a*EXT
indirekt := a*b
total := a*b + c"
Afterwards I tried to simulate data and model the analysis data with varying sample sizes to estimate the power:
med.n <- sim(model=analysis.model, n = rep(seq(50,200,10),10), generate = population.model,
lavaanfun = "sem",
std.lv=FALSE)
This analysis resulted in 50 warnings:
50: In lav_object_post_check(object) :
lavaan WARNING: some estimated ov variances are negative
Do you have any ideas what might be wrong about my models?
Thank you in advance for your help!