Open zteuber opened 1 year ago
Hello,
Unfortunately, the MPlus portion of the code is quite old and I do not have an installation of MPlus that I can test it with. The only thing I can suggest at the moment is to try the lavaan version of the function and see if you have any difficulties that way.
Hello,
I tried the lavaan version. Unfortunately, it didn't work. Below you can see my codes and a screenshot of the error.
Best wishes, Ziwen
devtools::install_github('AnthonyRaborn/ShortForm', ref = 'bugfix') remotes::install_github('AnthonyRaborn/ShortForm', ref = 'bugfix')
antModel = 'PE =~ PG_PGPE2 + PG_PGPE3 + PG_PGPE5 + PG_PGPE7 SP =~ PG_PGSP2 + PG_PGSP4 + PG_PGSP5 + PG_PGSP6 + PG_PGSP7 AG =~ PG_PGAG1 + PG_PGAG2 + PG_PGAG3 + PG_PGAG4 + PG_PGAG6 + PG_PGAG7'
list.items <- list(c('PG_PGPE2','PG_PGPE3','PG_PGPE5','PG_PGPE7', 'PG_PGSP2','PG_PGSP4','PG_PGSP5','PG_PGSP6','PG_PGSP7', 'PG_PGAG1','PG_PGAG2','PG_PGAG3','PG_PGAG4','PG_PGAG6','PG_PGAG7'))
Grit = antcolony.lavaan(data = pgrit,ants = 20, evaporation = 0.7, antModel = antModel, list.items = list.items, full = 15, i.per.f = c(4,4,4), factors = c('PE', 'SP', 'AG'), steps = 3, fit.indices = c('cfi','rmsea'), fit.statistics.test = "(cfi > 0.9)&(rmsea < 0.08)", summaryfile = 'summary.txt', feedbackfile ='iteration.html', max.run = 100) Grit[[1]]
Dear Anthony,
I'm running a 3-factor model using the "antcolony.mplus" function. Below is my R script. However, it keeps calculating, and after 2 days, it still hasn't finished (see screenshot). Are there any errors in my R script? I've also attached my data.
Best regards, Ziwen
initial.MplusAutomation.model <- MplusAutomation::mplusObject( TITLE = "PGrit Shortform 3 factors;", MODEL = "PE BY PG_PGPE2 PG_PGPE3 PG_PGPE5 PG_PGPE7; SP BY PG_PGSP2 PG_PGSP4 PG_PGSP5 PG_PGSP6 PG_PGSP7; AG BY PG_PGAG1 PG_PGAG2 PG_PGAG3 PG_PGAG4 PG_PGAG6 PG_PGAG7;", ANALYSIS = "ESTIMATOR = WLSMV;", VARIABLE = "CATEGORICAL = PG_PGPE2 PG_PGPE3 PG_PGPE5 PG_PGPE7 PG_PGSP2 PG_PGSP4 PG_PGSP5 PG_PGSP6 PG_PGSP7 PG_PGAG1 PG_PGAG2 PG_PGAG3 PG_PGAG4
PG_PGAG6 PG_PGAG7;", OUTPUT = "stdyx;", rdata = data)
finally, call the function with some minor changes to the default values.
Pgritshort = antcolony.mplus(ants = 20, evaporation = 0.7,
data.csv