Fix column name in confint output

OHDSI · Jan 10, 2025 · a6ebcec · a6ebcec
1 parent ca2c024
commit a6ebcec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ModelFit.R b/R/ModelFit.R
@@ -864,7 +864,7 @@ confint.cyclopsFit <- function(object, parm, level = 0.95, #control,
     if (any(hessianDiagonal > maximumCurvature)) {
         warning("Cannot estimate confidence interval for a monotonic log-likelihood function")
 
-        prof <- data.frame(covariates = savedParm,
+        prof <- data.frame(covariate = savedParm,
                            lower = rep(NA, length(parm)),
                            upper = rep(NA, length(parm)),
                            evaluations = rep(NA, length(parm)))