From 52b33b6ebed5f09b4a90fefa47e642a45d44de91 Mon Sep 17 00:00:00 2001
From: egillax <egillax@gmail.com>
Date: Tue, 26 Mar 2024 17:07:32 +0100
Subject: [PATCH] fix bubu

---
 R/CyclopsModels.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/CyclopsModels.R b/R/CyclopsModels.R
index 15f83d497..4a6c438ab 100644
--- a/R/CyclopsModels.R
+++ b/R/CyclopsModels.R
@@ -422,7 +422,7 @@ createCyclopsModel <- function(fit, modelType, useCrossValidation, cyclopsData,
   #get CV - added && status == "OK" to only run if the model fit sucsessfully 
   if(modelType == "logistic" && useCrossValidation && !is.null(prior)){
     outcomeModel$cv <- getCV(cyclopsData, labels, cvVariance = fit$variance, folds = folds,
-                             priorType = prior)
+                             prior = prior)
   }
   
   return(outcomeModel)