- fixed typo in addAvgFit()

Boehringer-Ingelheim · Feb 18, 2025 · 57f15b0 · 57f15b0
1 parent 435f4f0
commit 57f15b0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/modeling.R b/R/modeling.R
@@ -96,7 +96,7 @@ addAvgFit <- function (
 
   avg_fit  <- list(model        = "avgFit",
                    coeff        = NA,
-                   dose_levels  = dose_levels,
+                   dose_levels  = model_fits[[1]]$dose_levels,
                    pred_values  = pred_vals,
                    max_effect   = max(pred_vals) - min(pred_vals),
                    gAIC         = NA,