Fix covariances between dependent mediator paths

jasp-stats · Nov 20, 2023 · 28e5396 · 28e5396
1 parent f628a9f
commit 28e5396
Show file tree

Hide file tree

Showing 115 changed files with 10,706 additions and 10,418 deletions.
diff --git a/R/classicProcess.R b/R/classicProcess.R
@@ -751,8 +751,9 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
   # Add vertices and edges for first dependent var
   depVars <- igraph::V(graph)[isDep]$name
   resCovGraph <- .procCombVars(resCovGraph, depVars[1])
-
-  return(resCovGraph)
+
+  # Remove edges that are in graph from resCovGraph
+  return(igraph::difference(resCovGraph, igraph::as.undirected(graph)))
 }
 
 .procModelSyntax <- function(jaspResults, options) {

diff --git a/...s-integration-custom-models/statistical-path-plot-continuous-confounder-m-y.svg b/...s-integration-custom-models/statistical-path-plot-continuous-confounder-m-y.svg
diff --git a/...gration-custom-models/statistical-path-plot-continuous-confounder-moderator.svg b/...gration-custom-models/statistical-path-plot-continuous-confounder-moderator.svg