Handle ill-conditioned ll

OHDSI · Apr 27, 2024 · 8864e92 · 8864e92
1 parent 6d71bca
commit 8864e92
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/ModelFitting.R b/R/ModelFitting.R
@@ -168,9 +168,10 @@ fitSccsModel <- function(sccsIntervalData,
       priorVariance <- 0
       status <- fit
     } else {
-      if (!is.null(profileGrid) || !is.null(profileBounds)) {
+      if ((!is.null(profileGrid) || !is.null(profileBounds)) && fit$return_flag != "ILLCONDITIONED") {
         covariateIds <- intersect(needProfile, as.numeric(Cyclops::getCovariateIds(cyclopsData)))
         getLikelihoodProfile <- function(covariateId) {
+          if (all(fit$estimates))
           logLikelihoodProfile <- Cyclops::getCyclopsProfileLogLikelihood(
             object = fit,
             parm = covariateId,