Displaying 1 result from an estimated 1 matches for "mymodlchim1".
Did you mean:
mymodlchim2
2010 Aug 11
1
sem & psych
...leSize, maxiter = myMaxIter),
silent = FALSE) # SEM model estimation) # tries to estimate the CTCM model
if(M1$convergence > 2){
convergenceM1 <- c(0)
resultsM1 <- as.numeric(c(rep(-1, 12))) } else { # else needs
to be in the same line as the last command
myModlChiM1 <- try(summary(M1))
convergenceM1 <- as.numeric(M1$convergence)
chiM1 <- as.numeric(myModlChiM1$chisq)
dfM1 <- as.numeric(myModlChiM1$df)
chiM0 <- as.numeric(myModlChiM1$chisqNull)
dfM0 <- as.numeric(...