Update ShaunRdoc-r01_fullbrain4.2.Rmd

ShaunQuah · web-flow · commit a2fe0e0b5410 · 2024-03-13T16:04:38.000-07:00
diff --git a/ShaunRdoc-r01_fullbrain4.2.Rmd b/ShaunRdoc-r01_fullbrain4.2.Rmd
@@ -299,7 +299,7 @@ fitdata <- data.frame(Models = c("RDoC", "RDoC (bifactor)", "DD (bifactor)", "DD
                    aic.errmax = c(rdoc.aic.ci[[2]], rdocbi.aic.ci[[2]], cfa.aic.ci[[2]], cfanobi.aic.ci[[2]]),
                    bic = c(rdoc.fit.aicbic[2], rdocbi.fit.aicbic[2], cfa.fit.aicbic[2], cfanobi.fit.aicbic[2]),
                    bic.errmin = c(rdoc.bic.ci[[1]], rdocbi.bic.ci[[1]], cfa.bic.ci[[1]], cfanobi.bic.ci[[1]]),
-                   bic.errmax = c(rdoc.bic.ci[[2]], rdocbi.bic.ci[[2]], cfa.bic.ci[[2]], cfanobi.bic.ci[[2]]),
+                   bic.errmax = c(rdoc.bic.ci[[2]], rdocbi.bic.ci[[2]], cfa.bic.ci[[2]], cfanobi.bic.ci[[2]])
                    )
                    
 ggplot(fitdata, aes(x = Models, y = Robust.RMSEA)) +

Original file line number	Diff line number	Diff line change
`@@ -299,7 +299,7 @@ fitdata <- data.frame(Models = c("RDoC", "RDoC (bifactor)", "DD (bifactor)", "DD`
`299`	`299`	`aic.errmax = c(rdoc.aic.ci[[2]], rdocbi.aic.ci[[2]], cfa.aic.ci[[2]], cfanobi.aic.ci[[2]]),`
`300`	`300`	`bic = c(rdoc.fit.aicbic[2], rdocbi.fit.aicbic[2], cfa.fit.aicbic[2], cfanobi.fit.aicbic[2]),`
`301`	`301`	`bic.errmin = c(rdoc.bic.ci[[1]], rdocbi.bic.ci[[1]], cfa.bic.ci[[1]], cfanobi.bic.ci[[1]]),`
`302`		`- bic.errmax = c(rdoc.bic.ci[[2]], rdocbi.bic.ci[[2]], cfa.bic.ci[[2]], cfanobi.bic.ci[[2]]),`
	`302`	`+ bic.errmax = c(rdoc.bic.ci[[2]], rdocbi.bic.ci[[2]], cfa.bic.ci[[2]], cfanobi.bic.ci[[2]])`
`303`	`303`	`)`
`304`	`304`
`305`	`305`	`ggplot(fitdata, aes(x = Models, y = Robust.RMSEA)) +`