From a6ebcecba918ac844f612a8b6ba423c5a3185088 Mon Sep 17 00:00:00 2001
From: Admin_mschuemi <Admin_mschuemi@its.jnj.com>
Date: Fri, 10 Jan 2025 08:24:04 -0500
Subject: [PATCH] Fix column name in confint output

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

diff --git a/R/ModelFit.R b/R/ModelFit.R
index 0d93f917..7a8fb5e3 100644
--- 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)))