20250204 - bounded estimation with random starts

sem.Rmd

@@ -1531,6 +1531,25 @@ ggplot(plot_data, aes(x = Murder, y = predicted_slopes)) +
   theme_classic()
 ```
 
+# Bounded Estimation with Random Starts {#boundedEstimationRandomStarts}
+
+For more info, see De Jonckere and Rosseel (2022, 2025).
+
+```{r}
+HS.model <- '
+visual  =~ x1 + x2 + x3
+textual =~ x4 + x5 + x6
+speed   =~ x7 + x8 + x9
+'
+
+fit <- cfa(
+  HS.model,
+  data = HolzingerSwineford1939,
+  bounds = "pos.var", # forces all variances of both observed and latent variables to be strictly nonnegative
+  rstarts = 10,
+  verbose = TRUE)
+```
+
 # Power Analysis {#powerAnalysis}
 
 https://isaactpetersen.github.io/Principles-Psychological-Assessment/sem.html#monteCarloPowerAnalysis