From cf5f8405c058dbde4273b5f97e2752707bf86c3a Mon Sep 17 00:00:00 2001 From: maltelueken Date: Tue, 17 Oct 2023 13:00:06 +0200 Subject: [PATCH] Change first arg of .procResCovGraphSingleModel from to --- R/classicProcess.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/classicProcess.R b/R/classicProcess.R index 0cadce5..67a4fda 100644 --- a/R/classicProcess.R +++ b/R/classicProcess.R @@ -625,7 +625,7 @@ procModelGraphSingleModel <- function(modelOptions, globalDependent, options) { ) next if (is.null(modelsContainer[[modelName]][["resCovGraph"]])) { - resCovGraph <- .procResCovGraphSingleModel(modelsContainer[[modelName]], modelOptions) + resCovGraph <- .procResCovGraphSingleModel(modelsContainer[[modelName]][["graph"]]$object, modelOptions) state <- createJaspState(object = resCovGraph) state$dependOn( optionContainsValue = list(processModels = modelOptions), @@ -656,8 +656,7 @@ procModelGraphSingleModel <- function(modelOptions, globalDependent, options) { return(graph) } -.procResCovGraphSingleModel <- function(container, modelOptions) { - graph <- container[["graph"]]$object +.procResCovGraphSingleModel <- function(graph, modelOptions) { # Create new graph for covariances because we don't care about direction resCovGraph <- igraph::make_empty_graph(directed = FALSE)