Change local tests to only use free parameters

jasp-stats · Sep 19, 2023 · 4bccf21 · 4bccf21
1 parent 0cae0e1
commit 4bccf21
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/classicProcess.R b/R/classicProcess.R
@@ -1561,7 +1561,8 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
   }
 
   parTable <- lavaan::parTable(procResults)
-  parTable <- parTable[parTable$op != ":=" & !grepl(":|__", parTable$rhs) & !grepl(":|__", parTable$lhs),]
+  # Only include free parameters in DAG
+  parTable <- parTable[parTable$op != ":=" & parTable$free > 0 & !grepl(":|__", parTable$rhs) & !grepl(":|__", parTable$lhs),]
 
   arrows <- apply(parTable, 1, function(row) {
     op <- switch(row[["op"]],