fix bubu

OHDSI · Mar 26, 2024 · 52b33b6 · 52b33b6
1 parent f4601c6
commit 52b33b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)