diff --git a/R/classicProcess.R b/R/classicProcess.R index 5a34142..041d476 100644 --- a/R/classicProcess.R +++ b/R/classicProcess.R @@ -1790,17 +1790,22 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) { # Pos of helper nodes is mean of source and target nodes helperNodePosX <- mean(c(igraph::V(graph)[modIntVars[j-1]]$posX, igraph::V(graph)[helperTarget]$posX)) helperNodePosY <- mean(c(igraph::V(graph)[modIntVars[j-1]]$posY, igraph::V(graph)[helperTarget]$posY)) + igraph::V(graph)[helperNodeName]$posX <- helperNodePosX igraph::V(graph)[helperNodeName]$posY <- helperNodePosY - # Pos of moderator depends on index - if (j %% 2 == 0) { - # Place first moderator above source and target - igraph::V(graph)[modIntVars[j]]$posX <- helperNodePosX - igraph::V(graph)[modIntVars[j]]$posY <- .minMaxSubAddOne(igraph::V(graph)$posY) - } else { - # Place second moderator to the right of source and target - igraph::V(graph)[modIntVars[j]]$posX <- .minMaxSubAddOne(helperNodePosX) - igraph::V(graph)[modIntVars[j]]$posY <- helperNodePosY + + # Only assign pos of nodes that do not have pos yet + if (is.na(igraph::V(graph)[modIntVars[j]]$posX) && is.na(igraph::V(graph)[modIntVars[j]]$posY)) { + # Pos of moderator depends on index + if (j %% 2 == 0) { + # Place first moderator above source and target + igraph::V(graph)[modIntVars[j]]$posX <- helperNodePosX + igraph::V(graph)[modIntVars[j]]$posY <- .minMaxSubAddOne(igraph::V(graph)$posY) + } else { + # Place second moderator to the right of source and target + igraph::V(graph)[modIntVars[j]]$posX <- .minMaxSubAddOne(helperNodePosX) + igraph::V(graph)[modIntVars[j]]$posY <- helperNodePosY + } } # Set helper node as next target helperTarget <- helperNodeName @@ -1930,7 +1935,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) { yScale <- (1/min(decimalPos[,2][decimalPos[,2] > 0], na.rm = TRUE)) layout[,2] <- layout[,2] * yScale } - + xRange <- diff(range(layout[,1], na.rm = TRUE)) yRange <- diff(range(layout[,2], na.rm = TRUE)) diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-10.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-10.svg index f0eda24..f338288 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-10.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-10.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dC1 +cn1 +cn2 -conceptual-path-plot-continuous-10 +conceptual-path-plot-continuous-10 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-12.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-12.svg index ce6ece3..71a4103 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-12.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-12.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dC1 +cn1 +cn2 -conceptual-path-plot-continuous-12 +conceptual-path-plot-continuous-12 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-15.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-15.svg index 279771c..9863774 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-15.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-15.svg @@ -36,26 +36,26 @@ - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 conceptual-path-plot-continuous-15 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-17.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-17.svg index 2a84365..4089a6a 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-17.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-17.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-17 +conceptual-path-plot-continuous-17 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-22.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-22.svg index 7270205..11c6570 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-22.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-22.svg @@ -39,8 +39,8 @@ - - + + @@ -50,17 +50,17 @@ - - - - - - + + + + + + cnG cnN dbC1 -cn1 -cn2 +cn1 +cn2 conceptual-path-plot-continuous-22 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-28.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-28.svg index 7578602..5ed62d6 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-28.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-28.svg @@ -36,31 +36,31 @@ - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 conceptual-path-plot-continuous-28 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-29.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-29.svg index 749e4f5..28b158a 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-29.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-29.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-29 +conceptual-path-plot-continuous-29 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-58.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-58.svg index 1c01233..cc1907c 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-58.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-58.svg @@ -36,26 +36,26 @@ - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 conceptual-path-plot-continuous-58 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-59.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-59.svg index 0e39645..41ca13e 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-59.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-59.svg @@ -39,7 +39,7 @@ - + @@ -49,16 +49,16 @@ - - - - - - + + + + + + cnG cnN dbC1 -cn1 +cn1 conceptual-path-plot-continuous-59 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-60.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-60.svg index 664f3cb..f3cef29 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-60.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-60.svg @@ -39,8 +39,8 @@ - + @@ -50,17 +50,17 @@ - - - - + + + + cnG cnN dbC1 -cn1 -cn2 +cn1 +cn2 conceptual-path-plot-continuous-60 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-61.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-61.svg index f9f1dfe..59c00a2 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-61.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-61.svg @@ -39,7 +39,7 @@ - + @@ -47,22 +47,22 @@ - - + + - - - - + + + + cnG cnN dbC1 -cn1 +cn1 cn2 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-62.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-62.svg index 2c480d2..7bec221 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-62.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-62.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-62 +conceptual-path-plot-continuous-62 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-63.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-63.svg index c314849..30fc155 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-63.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-63.svg @@ -36,37 +36,37 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 conceptual-path-plot-continuous-63 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-64.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-64.svg index c6ec1f8..e87e792 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-64.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-64.svg @@ -39,8 +39,8 @@ + - @@ -50,17 +50,17 @@ - - + + + + - - cnG cnN dbC1 -cn1 -cn2 +cn1 +cn2 conceptual-path-plot-continuous-64 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-65.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-65.svg index 90b972e..b0a0ff8 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-65.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-65.svg @@ -39,7 +39,7 @@ - + @@ -47,22 +47,22 @@ - - + + - - - - + + + + cnG cnN dbC1 -cn1 +cn1 cn2 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-66.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-66.svg index c33e660..5f006c3 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-66.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-66.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-66 +conceptual-path-plot-continuous-66 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-67.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-67.svg index b8061f2..e378097 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-67.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-67.svg @@ -36,37 +36,37 @@ - - - - + + + - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 conceptual-path-plot-continuous-67 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-68.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-68.svg index dbcf2d2..32c9ec0 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-68.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-68.svg @@ -20,49 +20,49 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-68 +conceptual-path-plot-continuous-68 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-70.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-70.svg index 9ad8da3..b930154 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-70.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-70.svg @@ -20,49 +20,49 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-70 +conceptual-path-plot-continuous-70 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-72.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-72.svg index ef24b06..a081c4d 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-72.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-72.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-72 +conceptual-path-plot-continuous-72 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-75.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-75.svg index 013f325..4d8dff1 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-75.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-75.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -dbC1 -cn1 -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +dbC1 +cn1 +cn2 -conceptual-path-plot-continuous-75 +conceptual-path-plot-continuous-75 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-76.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-76.svg index a04ff7c..c886f3e 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-76.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-76.svg @@ -39,8 +39,8 @@ - - + + @@ -49,18 +49,18 @@ - - - - - - - - - - - - + + + + + + + + + + + + @@ -68,8 +68,8 @@ cnG cnN dbC1 -cn1 -cn2 +cn1 +cn2 conceptual-path-plot-continuous-76 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-8.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-8.svg index 4b1a5f5..28ba36b 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-8.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-8.svg @@ -36,26 +36,26 @@ - - - - - - - - - - - - - - - - -cnG -cnN -dC1 -cn1 + + + + + + + + + + + + + + + + +cnG +cnN +dC1 +cn1 conceptual-path-plot-continuous-8 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-84.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-84.svg index 1846b3a..7f68926 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-84.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-84.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 -conceptual-path-plot-continuous-84 +conceptual-path-plot-continuous-84 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-85.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-85.svg index b25a57f..8a1a40a 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-85.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-85.svg @@ -36,37 +36,37 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 conceptual-path-plot-continuous-85 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-86.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-86.svg index 06a59fa..247769d 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-86.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-86.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 -conceptual-path-plot-continuous-86 +conceptual-path-plot-continuous-86 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-88.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-88.svg index 0fc0634..aba4488 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-88.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-88.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 -conceptual-path-plot-continuous-88 +conceptual-path-plot-continuous-88 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-89.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-89.svg index 2cd222b..a6db7c7 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-89.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-89.svg @@ -36,37 +36,37 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 conceptual-path-plot-continuous-89 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-90.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-90.svg index d85fa02..e814d02 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-90.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-90.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 -conceptual-path-plot-continuous-90 +conceptual-path-plot-continuous-90 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-92.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-92.svg index 67821e4..94057d4 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-92.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-continuous-92.svg @@ -36,46 +36,46 @@ - - - - - - - - - + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - -cnG -cnN -M1 -M2 -cn1 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +cnG +cnN +M1 +M2 +cn1 conceptual-path-plot-continuous-92 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-10.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-10.svg index 1474d7b..2b89ece 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-10.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-10.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dC1 +fcE +cn2 -conceptual-path-plot-factor-10 +conceptual-path-plot-factor-10 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-12.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-12.svg index 4334251..7914d49 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-12.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-12.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dC1 +fcE +cn2 -conceptual-path-plot-factor-12 +conceptual-path-plot-factor-12 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-15.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-15.svg index fdf74a9..00ae0d9 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-15.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-15.svg @@ -36,26 +36,26 @@ - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE conceptual-path-plot-factor-15 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-17.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-17.svg index 8ae8626..794c7ae 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-17.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-17.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-17 +conceptual-path-plot-factor-17 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-22.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-22.svg index 16de2f5..31fbdf0 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-22.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-22.svg @@ -39,8 +39,8 @@ - - + + @@ -50,17 +50,17 @@ - - - - - - + + + + + + fcG cnN dbC1 -fcE -cn2 +fcE +cn2 conceptual-path-plot-factor-22 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-28.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-28.svg index 9481ff4..d5a3b6e 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-28.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-28.svg @@ -36,31 +36,31 @@ - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 conceptual-path-plot-factor-28 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-29.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-29.svg index a8a93c2..0302e2c 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-29.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-29.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-29 +conceptual-path-plot-factor-29 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-58.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-58.svg index d33be4e..a71925b 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-58.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-58.svg @@ -36,26 +36,26 @@ - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE conceptual-path-plot-factor-58 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-59.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-59.svg index b6504bc..f63f2ce 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-59.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-59.svg @@ -39,7 +39,7 @@ - + @@ -49,16 +49,16 @@ - - - - - - + + + + + + fcG cnN dbC1 -fcE +fcE conceptual-path-plot-factor-59 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-60.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-60.svg index 8ffa5b9..411f019 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-60.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-60.svg @@ -39,8 +39,8 @@ - + @@ -50,17 +50,17 @@ - - - - + + + + fcG cnN dbC1 -fcE -cn2 +fcE +cn2 conceptual-path-plot-factor-60 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-61.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-61.svg index 87a4a14..877763e 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-61.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-61.svg @@ -39,7 +39,7 @@ - + @@ -47,22 +47,22 @@ - - + + - - - - + + + + fcG cnN dbC1 -fcE +fcE cn2 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-62.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-62.svg index d9311bd..ee66182 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-62.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-62.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-62 +conceptual-path-plot-factor-62 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-63.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-63.svg index 308c666..b53815f 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-63.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-63.svg @@ -36,37 +36,37 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 conceptual-path-plot-factor-63 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-64.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-64.svg index d8ea7e9..387393a 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-64.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-64.svg @@ -39,8 +39,8 @@ + - @@ -50,17 +50,17 @@ - - + + + + - - fcG cnN dbC1 -fcE -cn2 +fcE +cn2 conceptual-path-plot-factor-64 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-65.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-65.svg index c8cc67b..7baa5a6 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-65.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-65.svg @@ -39,7 +39,7 @@ - + @@ -47,22 +47,22 @@ - - + + - - - - + + + + fcG cnN dbC1 -fcE +fcE cn2 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-66.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-66.svg index bc18d2a..aab995b 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-66.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-66.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-66 +conceptual-path-plot-factor-66 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-67.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-67.svg index 28a9a46..b8b37de 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-67.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-67.svg @@ -36,37 +36,37 @@ - - - - + + + - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 conceptual-path-plot-factor-67 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-68.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-68.svg index 5a83f5f..cb34ad5 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-68.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-68.svg @@ -20,49 +20,49 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-68 +conceptual-path-plot-factor-68 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-70.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-70.svg index 638431f..2f76f4f 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-70.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-70.svg @@ -20,49 +20,49 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-70 +conceptual-path-plot-factor-70 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-72.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-72.svg index 77e7833..a69a628 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-72.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-72.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-72 +conceptual-path-plot-factor-72 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-75.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-75.svg index 995033e..3d992ba 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-75.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-75.svg @@ -20,52 +20,52 @@ - - + + - - + + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - -fcG -cnN -dbC1 -fcE -cn2 + + + + + + + + + + + + + + + + + + + + + + + + + +fcG +cnN +dbC1 +fcE +cn2 -conceptual-path-plot-factor-75 +conceptual-path-plot-factor-75 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-76.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-76.svg index e6e38a1..638d745 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-76.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-76.svg @@ -39,8 +39,8 @@ - - + + @@ -49,18 +49,18 @@ - - - - - - - - - - - - + + + + + + + + + + + + @@ -68,8 +68,8 @@ fcG cnN dbC1 -fcE -cn2 +fcE +cn2 conceptual-path-plot-factor-76 diff --git a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-8.svg b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-8.svg index f51b786..3e0c96b 100644 --- a/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-8.svg +++ b/tests/testthat/_snaps/classic-process-integration-hayes-models/conceptual-path-plot-factor-8.svg @@ -36,26 +36,26 @@ - - - - - - - - - - - - - - - - -fcG -cnN -dC1 -fcE + + + + + + + + + + + + + + + + +fcG +cnN +dC1 +fcE conceptual-path-plot-factor-8 diff --git a/tests/testthat/test-classic-process-integration-hayes-models.R b/tests/testthat/test-classic-process-integration-hayes-models.R index ec6836f..7d3e6c0 100644 --- a/tests/testthat/test-classic-process-integration-hayes-models.R +++ b/tests/testthat/test-classic-process-integration-hayes-models.R @@ -2,7 +2,7 @@ test_that("Test that model number 1 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -13,19 +13,19 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -104,7 +104,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 1 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -115,19 +115,19 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -200,7 +200,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 2 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -211,21 +211,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -341,7 +341,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 2 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -352,21 +352,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -469,7 +469,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 3 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -480,21 +480,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -615,7 +615,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 3 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -626,21 +626,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -748,7 +748,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 4 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -759,19 +759,19 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -842,7 +842,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 4 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -853,19 +853,19 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -936,7 +936,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 5 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -947,21 +947,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1051,7 +1051,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 5 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1062,21 +1062,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1161,7 +1161,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 7 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1172,21 +1172,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1281,7 +1281,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 7 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1292,21 +1292,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1393,7 +1393,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 8 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1404,23 +1404,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1531,7 +1531,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 8 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1542,23 +1542,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1657,7 +1657,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 9 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1668,23 +1668,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1832,7 +1832,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 9 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -1843,23 +1843,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -1989,7 +1989,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 10 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -2000,27 +2000,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -2216,7 +2216,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 10 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -2227,27 +2227,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -2410,7 +2410,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 11 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -2421,23 +2421,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -2590,7 +2590,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 11 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -2601,23 +2601,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -2753,7 +2753,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 12 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -2764,27 +2764,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -2989,7 +2989,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 12 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3000,27 +3000,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -3194,7 +3194,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 13 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3205,25 +3205,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -3392,7 +3392,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 13 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3403,25 +3403,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -3567,7 +3567,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 14 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3578,21 +3578,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -3689,7 +3689,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 14 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3700,21 +3700,21 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -3803,7 +3803,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 15 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3814,23 +3814,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -3940,7 +3940,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 15 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -3951,23 +3951,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -4066,7 +4066,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 16 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -4077,23 +4077,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -4245,7 +4245,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 16 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -4256,23 +4256,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -4406,7 +4406,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 17 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -4417,27 +4417,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -4632,7 +4632,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 17 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -4643,27 +4643,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -4826,7 +4826,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 18 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -4837,23 +4837,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -5010,7 +5010,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 18 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -5021,23 +5021,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -5175,7 +5175,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 21 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -5186,23 +5186,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -5353,7 +5353,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 21 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -5364,23 +5364,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -5511,7 +5511,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 22 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -5522,25 +5522,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -5706,7 +5706,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 22 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -5717,25 +5717,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -5877,7 +5877,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 28 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -5888,25 +5888,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -6069,7 +6069,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 28 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -6080,25 +6080,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -6242,7 +6242,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 29 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -6253,27 +6253,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -6468,7 +6468,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 29 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -6479,27 +6479,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -6661,7 +6661,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 58 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -6672,23 +6672,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -6833,7 +6833,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 58 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -6844,23 +6844,23 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -6971,7 +6971,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 59 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -6982,25 +6982,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -7158,7 +7158,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 59 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -7169,25 +7169,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -7306,7 +7306,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 60 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -7317,25 +7317,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -7619,7 +7619,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 60 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -7630,25 +7630,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -7829,7 +7829,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 61 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -7840,27 +7840,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -8158,7 +8158,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 61 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -8169,27 +8169,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -8381,7 +8381,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 62 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -8392,27 +8392,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -8712,7 +8712,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 62 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -8723,27 +8723,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -8941,7 +8941,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 63 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -8952,29 +8952,29 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -9304,7 +9304,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 63 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -9315,29 +9315,29 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -9550,7 +9550,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 64 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -9561,25 +9561,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -9865,7 +9865,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 64 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -9876,25 +9876,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -10077,7 +10077,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 65 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -10088,27 +10088,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -10407,7 +10407,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 65 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -10418,27 +10418,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -10631,7 +10631,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 66 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -10642,27 +10642,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -10961,7 +10961,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 66 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -10972,27 +10972,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -11188,7 +11188,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 67 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -11199,29 +11199,29 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -11549,7 +11549,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 67 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -11560,29 +11560,29 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -11796,7 +11796,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 68 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -11807,25 +11807,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -12115,7 +12115,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 68 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -12126,25 +12126,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -12332,7 +12332,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 70 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -12343,25 +12343,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -12652,7 +12652,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 70 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -12663,25 +12663,25 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -12871,7 +12871,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 72 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -12882,27 +12882,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "debCollin1", - processIndependent = "contcor1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "debCollin1", + processIndependent = "contcor1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -13600,7 +13600,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 72 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -13611,27 +13611,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "debCollin1", - processIndependent = "facExperim", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "debCollin1", + processIndependent = "facExperim", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -14008,7 +14008,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 75 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -14019,27 +14019,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -14726,7 +14726,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 75 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -14737,27 +14737,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -15123,7 +15123,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 76 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -15134,31 +15134,31 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "debCollin1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "debCollin1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -15888,7 +15888,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 76 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -15899,31 +15899,31 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", - processVariable = "debCollin1"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "facExperim"), list(processDependent = "debCollin1", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "debCollin1", processType = "moderators", - processVariable = "contcor2"), list(processDependent = "contNormal", - processIndependent = "facGender", processType = "moderators", - processVariable = "contcor2")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", + processVariable = "debCollin1"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "facExperim"), list(processDependent = "debCollin1", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "debCollin1", processType = "moderators", + processVariable = "contcor2"), list(processDependent = "contNormal", + processIndependent = "facGender", processType = "moderators", + processVariable = "contcor2")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16319,7 +16319,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 82 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16330,30 +16330,30 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded3"), - list(processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded3", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded3"), + list(processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded3", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16378,7 +16378,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 82 - factor works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16389,30 +16389,30 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "facGender", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "facGender", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "facGender", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "facGender", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded3"), - list(processDependent = "contNormal", processIndependent = "facGender", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded3", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "facGender", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "facGender", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded3"), + list(processDependent = "contNormal", processIndependent = "facGender", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded3", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded4")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16437,7 +16437,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 83 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16448,26 +16448,26 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "JaspProcess_Mediator_Encoded1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "JaspProcess_Mediator_Encoded1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16493,7 +16493,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 84 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16504,28 +16504,28 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "JaspProcess_Mediator_Encoded1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "JaspProcess_Mediator_Encoded1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16551,7 +16551,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 85 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16562,30 +16562,30 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "JaspProcess_Mediator_Encoded1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "JaspProcess_Mediator_Encoded1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16611,7 +16611,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 86 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16622,28 +16622,28 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "JaspProcess_Mediator_Encoded1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1")), residualCovariances = TRUE, - statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "JaspProcess_Mediator_Encoded1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1")), residualCovariances = TRUE, + statisticalPathPlot = TRUE, totalEffects = TRUE, localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16669,7 +16669,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 87 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16680,26 +16680,26 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", - processType = "moderators", processVariable = "contcor1")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", + processType = "moderators", processVariable = "contcor1")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16725,7 +16725,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 88 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16736,28 +16736,28 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "moderators", processVariable = "contcor1"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", - processType = "moderators", processVariable = "contcor1")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "moderators", processVariable = "contcor1"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", + processType = "moderators", processVariable = "contcor1")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16783,7 +16783,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 89 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16794,30 +16794,30 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "moderators", processVariable = "contcor1"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", - processType = "moderators", processVariable = "contcor1"), - list(processDependent = "contNormal", processIndependent = "contGamma", - processType = "moderators", processVariable = "contcor1")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "moderators", processVariable = "contcor1"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", + processType = "moderators", processVariable = "contcor1"), + list(processDependent = "contNormal", processIndependent = "contGamma", + processType = "moderators", processVariable = "contcor1")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16843,7 +16843,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 90 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16854,28 +16854,28 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", - processType = "moderators", processVariable = "contcor1"), - list(processDependent = "contNormal", processIndependent = "contGamma", - processType = "moderators", processVariable = "contcor1")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", + processType = "moderators", processVariable = "contcor1"), + list(processDependent = "contNormal", processIndependent = "contGamma", + processType = "moderators", processVariable = "contcor1")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16901,7 +16901,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 91 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16912,27 +16912,27 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "JaspProcess_Mediator_Encoded2", - processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "moderators", processVariable = "contcor1")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "JaspProcess_Mediator_Encoded2", + processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "moderators", processVariable = "contcor1")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) @@ -16958,7 +16958,7 @@ results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) }) test_that("Test that model number 92 - continuous works", { - + options <- jaspTools::analysisOptions("ClassicProcess") options$dependent <- "contNormal" options$covariates <- list("contGamma", "contcor1", "contcor2", "debCollin1") @@ -16969,37 +16969,37 @@ options$errorCalculationMethod <- "standard" options$naAction <- "fiml" options$emulation <- "lavaan" options$estimator <- "default" -options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, +options$moderationProbes <- list(list(probePercentile = 16, value = "16"), list(probePercentile = 50, value = "50"), list(probePercentile = 84, value = "84")) options$pathPlotsLegend <- TRUE options$pathPlotsColorPalette <- "colorblind" -options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, - inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, - modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", - modelNumberMediators = list(), modelNumberModeratorW = "", - modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, - processRelationships = list(list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "mediators", +options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovariances = TRUE, + inputType = "inputVariables", mediationEffects = TRUE, mediatorCovariances = TRUE, + modelNumber = 1, modelNumberCovariates = list(), modelNumberIndependent = "", + modelNumberMediators = list(), modelNumberModeratorW = "", + modelNumberModeratorZ = "", name = "Model 1", pathCoefficients = TRUE, + processRelationships = list(list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded1"), list( - processDependent = "contNormal", processIndependent = "contGamma", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), - list(processDependent = "JaspProcess_Mediator_Encoded1", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "contNormal", - processIndependent = "contGamma", processType = "moderators", - processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", - processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "moderators", processVariable = "contcor1"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", - processType = "moderators", processVariable = "contcor1"), - list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", - processType = "moderators", processVariable = "contcor1")), - residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, - localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, + processDependent = "contNormal", processIndependent = "contGamma", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "mediators", processVariable = "JaspProcess_Mediator_Encoded2"), + list(processDependent = "JaspProcess_Mediator_Encoded1", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "contNormal", + processIndependent = "contGamma", processType = "moderators", + processVariable = "contcor1"), list(processDependent = "JaspProcess_Mediator_Encoded2", + processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "moderators", processVariable = "contcor1"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded1", + processType = "moderators", processVariable = "contcor1"), + list(processDependent = "contNormal", processIndependent = "JaspProcess_Mediator_Encoded2", + processType = "moderators", processVariable = "contcor1")), + residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE, + localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) results <- jaspTools::runAnalysis("ClassicProcess", "debug", options)