From 8436178f1062f22e282f61c7d1a87864b76cc0db Mon Sep 17 00:00:00 2001 From: maltelueken Date: Thu, 10 Oct 2024 10:25:19 +0200 Subject: [PATCH 1/3] Remove readDataSetToEnd --- R/bayesianProcess.R | 2 -- R/classicProcess.R | 4 +--- inst/Description.qml | 1 + 3 files changed, 2 insertions(+), 5 deletions(-) diff --git a/R/bayesianProcess.R b/R/bayesianProcess.R index 51d7ff0..54cc57b 100644 --- a/R/bayesianProcess.R +++ b/R/bayesianProcess.R @@ -27,8 +27,6 @@ BayesianProcess <- function(jaspResults, dataset = NULL, options) { return() } options$naAction <- "listwise" - # Read dataset - dataset <- .procReadData(options) # Check for errors in dataset .procErrorHandling(dataset, options) # Create a container for each model diff --git a/R/classicProcess.R b/R/classicProcess.R index f06cb34..a0b9fcc 100644 --- a/R/classicProcess.R +++ b/R/classicProcess.R @@ -26,8 +26,6 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) { .procModelSummaryTable(jaspResults, options, NULL) return() } - # Read dataset - dataset <- .procReadData(options) # Check for errors in dataset .procErrorHandling(dataset, options) # Create a container for each model @@ -468,7 +466,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) { return(graph) } -.procReadData <- function(options) { +.procReadData <- function(dataset, options) { # Read in selected variables from dataset dataset <- .readDataSetToEnd( columns.as.numeric = c(options[['dependent']], options[['covariates']]), diff --git a/inst/Description.qml b/inst/Description.qml index b2d421f..84b42bb 100644 --- a/inst/Description.qml +++ b/inst/Description.qml @@ -12,6 +12,7 @@ Description maintainer : "JASP Team " website : "https://jasp-stats.org" license : "GPL (>= 2)" + preloadData : true GroupTitle { From ddde3ada5ca5067786012978637228f6a803c8bd Mon Sep 17 00:00:00 2001 From: maltelueken Date: Thu, 10 Oct 2024 10:40:47 +0200 Subject: [PATCH 2/3] Rename 'debug' to 'debug.csv' in all tests --- .../testthat/test-bayesian-process-general.R | 4 +- .../test-bayesian-process-integration.R | 32 +-- ...lassic-process-integration-custom-models.R | 36 ++-- ...test-classic-process-integration-general.R | 36 ++-- ...classic-process-integration-hayes-models.R | 188 +++++++++--------- 5 files changed, 148 insertions(+), 148 deletions(-) diff --git a/tests/testthat/test-bayesian-process-general.R b/tests/testthat/test-bayesian-process-general.R index 580fe63..8accaa6 100644 --- a/tests/testthat/test-bayesian-process-general.R +++ b/tests/testthat/test-bayesian-process-general.R @@ -10,7 +10,7 @@ test_that("Missing values work without independent covariances", { options$processModels[[1]]$independentCovariances <- FALSE options$processModels[[1]]$intercepts <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) + results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) table <- results[["results"]][["modelSummaryTable"]][["data"]] jaspTools::expect_equal_tables(table, @@ -90,7 +90,7 @@ test_that("Incomplete Hayes configuration works", { options$processModels[[1]]$modelNumber <- 5 options$processModels[[1]]$localTests <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) + results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) plotName <- results[["results"]][["pathPlotContainer"]][["collection"]][["pathPlotContainer_Model 1"]][["collection"]][["pathPlotContainer_Model 1_conceptPathPlot"]][["data"]] testPlot <- results[["state"]][["figures"]][[plotName]][["obj"]] diff --git a/tests/testthat/test-bayesian-process-integration.R b/tests/testthat/test-bayesian-process-integration.R index 7522cb5..cf5b6df 100644 --- a/tests/testthat/test-bayesian-process-integration.R +++ b/tests/testthat/test-bayesian-process-integration.R @@ -42,7 +42,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor1")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -168,7 +168,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "facExperim")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -293,7 +293,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -481,7 +481,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -657,7 +657,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -885,7 +885,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -1103,7 +1103,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "mediators", processVariable = "debCollin1")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -1215,7 +1215,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "mediators", processVariable = "debCollin1")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -1334,7 +1334,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -1602,7 +1602,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -1840,7 +1840,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -2124,7 +2124,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor2")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -2382,7 +2382,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "mediators", processVariable = "contcor1")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -2558,7 +2558,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "mediators", processVariable = "contcor1")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -2741,7 +2741,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "contcor1")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) @@ -2987,7 +2987,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria processType = "moderators", processVariable = "facExperim")), residualCovariances = TRUE, statisticalPathPlot = TRUE, totalEffects = TRUE)) set.seed(1) -results <- jaspTools::runAnalysis("BayesianProcess", "debug", options) +results <- jaspTools::runAnalysis("BayesianProcess", "debug.csv", options) diff --git a/tests/testthat/test-classic-process-integration-custom-models.R b/tests/testthat/test-classic-process-integration-custom-models.R index a73e453..4767df7 100644 --- a/tests/testthat/test-classic-process-integration-custom-models.R +++ b/tests/testthat/test-classic-process-integration-custom-models.R @@ -37,7 +37,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -142,7 +142,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -251,7 +251,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -343,7 +343,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -437,7 +437,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -566,7 +566,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -698,7 +698,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -817,7 +817,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -937,7 +937,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1057,7 +1057,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1179,7 +1179,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1308,7 +1308,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1437,7 +1437,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1584,7 +1584,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1723,7 +1723,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1852,7 +1852,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1985,7 +1985,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -2119,7 +2119,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) diff --git a/tests/testthat/test-classic-process-integration-general.R b/tests/testthat/test-classic-process-integration-general.R index 0a48dbd..e270399 100644 --- a/tests/testthat/test-classic-process-integration-general.R +++ b/tests/testthat/test-classic-process-integration-general.R @@ -8,13 +8,13 @@ test_that("Error handling works - observations", { list(processDependent = "contNormal", processIndependent = "contGamma", processType = "moderators", processVariable = "debNaN")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) expect_identical(results[["status"]], "validationError", label = "Observations check") options$covariates <- list("contGamma") options$factors <- list("debNaN") set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) expect_identical(results[["status"]], "validationError", label = "Observations check") }) @@ -27,7 +27,7 @@ test_that("Error handling works - variance", { list(processDependent = "contNormal", processIndependent = "contGamma", processType = "moderators", processVariable = "debSame")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) expect_identical(results[["status"]], "validationError", label = "Variance check") }) @@ -40,7 +40,7 @@ test_that("Error handling works - infinity", { list(processDependent = "contNormal", processIndependent = "contGamma", processType = "moderators", processVariable = "debInf")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) expect_identical(results[["status"]], "validationError", label = "Infinity check") }) @@ -52,7 +52,7 @@ test_that("Error handling works - covariance", { list(processDependent = "contNormal", processIndependent = "debCollin1", processType = "moderators", processVariable = "debCollin2")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) expect_identical(results[["status"]], "validationError", label = "Covariance check") }) @@ -834,7 +834,7 @@ test_that("Bootstrapping works", { processIndependent = "contGamma", processType = "moderators", processVariable = "contcor1")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) table <- results[["results"]][["modelSummaryTable"]][["data"]] jaspTools::expect_equal_tables(table, @@ -919,7 +919,7 @@ test_that("Bootstrapping works (percentile interval)", { processVariable = "contcor1")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) table <- results[["results"]][["modelSummaryTable"]][["data"]] jaspTools::expect_equal_tables(table, @@ -1002,7 +1002,7 @@ test_that("Missing values work", { processIndependent = "debMiss1", processType = "moderators", processVariable = "debMiss30")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) table <- results[["results"]][["modelSummaryTable"]][["data"]] jaspTools::expect_equal_tables(table, @@ -1097,7 +1097,7 @@ test_that("Not implemented Hayes models error message work", { options$processModels[[1]]$localTests <- TRUE options$processModels[[2]]$localTests <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) refMsg <- jaspProcess:::.procHayesModelMsg("Model 1", modelNumber) @@ -1199,7 +1199,7 @@ test_that("No implied conditional independencies error message works", { processVariable = "debCollin1")))) options$processModels[[1]]$localTests <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) refMsg <- jaspProcess:::.procNoImpliedTestsMsg() @@ -1223,7 +1223,7 @@ test_that("Invalid test type error message works", { processVariable = "facGender")))) options$processModels[[1]]$localTests <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) refMsg <- jaspProcess:::.procLocalTestLinearMsg() @@ -1248,7 +1248,7 @@ test_that("Local tests work for factors with loess test type", { options$processModels[[1]]$localTests <- TRUE options$processModels[[1]]$localTestType <- "cis.loess" set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) table <- results[["results"]][["localTestContainer"]][["collection"]][["localTestContainer_Model 1"]][["collection"]][["localTestContainer_Model 1_localTestTable"]][["data"]] jaspTools::expect_equal_tables(table, list(-0.206103108541346, 0.17035274701811, "contGamma", -0.0139864082891252, @@ -1265,7 +1265,7 @@ test_that("Path plots for empty moderator model works", { options$processModels[[1]]$modelNumberIndependent <- list(value = "contGamma") options$processModels[[1]]$modelNumberMediators <- list(value = "debCollin1") set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) plotName <- results[["results"]][["pathPlotContainer"]][["collection"]][["pathPlotContainer_Model 1"]][["collection"]][["pathPlotContainer_Model 1_conceptPathPlot"]][["data"]] testPlot <- results[["state"]][["figures"]][[plotName]][["obj"]] @@ -1289,7 +1289,7 @@ test_that("Path plot for multiple dependent variables work", { processVariable = "debCollin1")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) plotName <- results[["results"]][["pathPlotContainer"]][["collection"]][["pathPlotContainer_Model 1"]][["collection"]][["pathPlotContainer_Model 1_conceptPathPlot"]][["data"]] testPlot <- results[["state"]][["figures"]][[plotName]][["obj"]] @@ -1314,7 +1314,7 @@ test_that("R-squared table matches", { processIndependent = "contGamma", processType = "mediators", processVariable = "debCollin1")))) set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) table <- results[["results"]][["rSquaredTable"]][["data"]] jaspTools::expect_equal_tables(table, @@ -1338,7 +1338,7 @@ test_that("Path coefficients table with intercepts matches", { processVariable = "debCollin1")))) options$processModels[[1]]$intercepts <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) table <- results[["results"]][["parEstContainer"]][["collection"]][["parEstContainer_Model 1"]][["collection"]][["parEstContainer_Model 1_pathCoefficientsTable"]][["data"]] jaspTools::expect_equal_tables(table, @@ -1388,7 +1388,7 @@ test_that("Directed acyclic graph error message works", { processType = "mediators", processVariable = "debCollin1")), name = "Model 2")) options$processModels[[1]]$localTests <- TRUE set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) refMsg <- jaspProcess:::.procEstimationMsg(jaspProcess:::.procDagMsg()) @@ -1412,7 +1412,7 @@ test_that("Incomplete Hayes configuration works", { options$processModels[[1]]$localTests <- TRUE options$processModels[[1]]$modelNumberIndependent <- list(value = "contGamma") set.seed(1) - results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) + results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) plotName <- results[["results"]][["pathPlotContainer"]][["collection"]][["pathPlotContainer_Model 1"]][["collection"]][["pathPlotContainer_Model 1_conceptPathPlot"]][["data"]] testPlot <- results[["state"]][["figures"]][[plotName]][["obj"]] diff --git a/tests/testthat/test-classic-process-integration-hayes-models.R b/tests/testthat/test-classic-process-integration-hayes-models.R index 9e3e101..c39fc04 100644 --- a/tests/testthat/test-classic-process-integration-hayes-models.R +++ b/tests/testthat/test-classic-process-integration-hayes-models.R @@ -37,7 +37,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -157,7 +157,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -276,7 +276,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -458,7 +458,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -629,7 +629,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -847,7 +847,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1056,7 +1056,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1161,7 +1161,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1270,7 +1270,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1406,7 +1406,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1538,7 +1538,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1681,7 +1681,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1820,7 +1820,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -1976,7 +1976,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -2123,7 +2123,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -2348,7 +2348,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -2557,7 +2557,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -2820,7 +2820,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -3050,7 +3050,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -3313,7 +3313,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -3563,7 +3563,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -3869,7 +3869,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -4149,7 +4149,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -4425,7 +4425,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -4678,7 +4678,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -4825,7 +4825,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -4970,7 +4970,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -5138,7 +5138,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -5300,7 +5300,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -5534,7 +5534,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -5752,7 +5752,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -6048,7 +6048,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -6316,7 +6316,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -6590,7 +6590,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -6849,7 +6849,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -7081,7 +7081,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -7292,7 +7292,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -7535,7 +7535,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -7754,7 +7754,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -8009,7 +8009,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -8246,7 +8246,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -8525,7 +8525,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -8771,7 +8771,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -8933,7 +8933,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -9094,7 +9094,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -9267,7 +9267,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -9434,7 +9434,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -9683,7 +9683,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -9916,7 +9916,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -10175,7 +10175,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -10414,7 +10414,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -10676,7 +10676,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -10922,7 +10922,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -11207,7 +11207,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -11461,7 +11461,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -11714,7 +11714,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -11951,7 +11951,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -12215,7 +12215,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -12457,7 +12457,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -12738,7 +12738,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -13004,7 +13004,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -13306,7 +13306,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -13579,7 +13579,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -13870,7 +13870,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -14148,7 +14148,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -14446,7 +14446,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -14734,7 +14734,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -15091,7 +15091,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -15438,7 +15438,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -15714,7 +15714,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -15975,7 +15975,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -16285,7 +16285,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -16565,7 +16565,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -16734,7 +16734,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -16900,7 +16900,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -17072,7 +17072,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -17236,7 +17236,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -17422,7 +17422,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -17598,7 +17598,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -17797,7 +17797,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -17979,7 +17979,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -18165,7 +18165,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -18335,7 +18335,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -18511,7 +18511,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -18680,7 +18680,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -18881,7 +18881,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -19075,7 +19075,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -19299,7 +19299,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -19509,7 +19509,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -19704,7 +19704,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -19887,7 +19887,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -20057,7 +20057,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -20232,7 +20232,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) @@ -20469,7 +20469,7 @@ options$processModels <- list(list(conceptualPathPlot = TRUE, independentCovaria localTests = FALSE, localTestType = "cis", localTestBootstrap = FALSE, localTestBootstrapSamples = 1000)) set.seed(1) -results <- jaspTools::runAnalysis("ClassicProcess", "debug", options) +results <- jaspTools::runAnalysis("ClassicProcess", "debug.csv", options) From 5f101763c48e15af0d49967b0f98af8384d32c06 Mon Sep 17 00:00:00 2001 From: maltelueken Date: Thu, 10 Oct 2024 10:55:16 +0200 Subject: [PATCH 3/3] Fix unit test for .procReplaceDummyVars --- tests/testthat/test-classic-process-unit.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-classic-process-unit.R b/tests/testthat/test-classic-process-unit.R index 2c767b6..ea662e3 100644 --- a/tests/testthat/test-classic-process-unit.R +++ b/tests/testthat/test-classic-process-unit.R @@ -393,10 +393,10 @@ test_that("Test that .procReplaceDummyVars works", { "JaspProcess_ModeratorW_Encoded", "JaspProcess_ModeratorZ_Encoded") modelOptions <- list( - modelNumberIndependent = "contGamma", - modelNumberMediators = list("contcor1", "contcor2"), - modelNumberModeratorW = "debCollin1", - modelNumberModeratorZ = "debCollin2" + modelNumberIndependent = list(value = "contGamma"), + modelNumberMediators = list(value = list("contcor1", "contcor2")), + modelNumberModeratorW = list(value = "debCollin1"), + modelNumberModeratorZ = list(value = "debCollin2") ) globalDependent <- "contNormal"