require(lavaan)
labels=list(X="frame",W="skeptic",M="justify",Y="donate")
moderator=list(name='skeptic',site=list(c("a")))
model=tripleEquation(labels=labels,moderator=moderator,data=disaster,rangemode=2)
cat(model)
if (FALSE) {
semfit=sem(model=model,data=disaster,se="boot",bootstrap=100)
modSummary(semfit)
modSummaryTable(semfit)
labels=list(X="dysfunc",M="negtone",Y="perform",W="negexp")
moderator=list(name="negexp",site=list("b"))
model=tripleEquation(labels=labels,moderator=moderator,data=teams,rangemode=2)
cat(model)
semfit=sem(model,data=teams,se="boot",bootstrap=100)
modmedSummary(semfit)
modSummaryTable(semfit)
}
Run the code above in your browser using DataLab