diff --git a/R/classicProcess.R b/R/classicProcess.R
index 179f13e..81d5644 100644
--- a/R/classicProcess.R
+++ b/R/classicProcess.R
@@ -130,7 +130,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
     modelName <- modelOptions[["name"]]
 
     if (is.null(modelsContainer[[modelName]][["graph"]])) {
-      graph <- try(procModelGraphSingleModel(options[["processModels"]][[i]], globalDependent = options[["dependent"]]))
+      graph <- try(.procModelGraphSingleModel(options[["processModels"]][[i]], globalDependent = options[["dependent"]]))
       state <- createJaspState(object = graph)
       state$dependOn(
         optionContainsValue = list(processModels = modelOptions),
@@ -142,7 +142,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) {
   }
 }
 
-procModelGraphSingleModel <- function(modelOptions, globalDependent, options) {
+.procModelGraphSingleModel <- function(modelOptions, globalDependent, options) {
   processRelationships <- switch(modelOptions[["inputType"]],
     inputVariables = modelOptions[["processRelationships"]],
     # Insert function for plotting conceptual hard-coded Hayes model, in case