fix: closes #212

Author: aravindhebbali

NEWS.md

@@ -1,5 +1,10 @@
 # olsrr 0.6.1.9000
 
+## Bug Fixes
+
+- `ols_step_best_subset()` unable to force more than one variable in selection process ([#210](https://github.com/rsquaredacademy/olsrr/issues/210))
+- `plot()` with `ols_step_both_aic()` doesn't show anything when AIC values are negative ([#212](https://github.com/rsquaredacademy/olsrr/issues/212))
+
 # olsrr 0.6.1
 
 This is a patch release for urgent bug fixes.

R/ols-stepwise-utils.R

@@ -346,8 +346,13 @@ ols_stepwise_plot_data <- function(x, pred, metric = "r2") {
   aic  <- x$metrics[[metric]]
   xmin <- 0
   xmax <- max(step) + 1
-  ymin <- min(aic) - (min(aic) * 0.05)
-  ymax <- max(aic) + (max(aic) * 0.05)
+  if (min(aic) < 0) {
+    ymin <- min(aic) + (min(aic) * 0.05)
+    ymax <- max(aic) - (max(aic) * 0.05)
+  } else {
+    ymin <- min(aic) - (min(aic) * 0.05)
+    ymax <- max(aic) + (max(aic) * 0.05)
+  }
   d2   <- data.frame(x = step, y = aic, tx = pred)
   d    <- data.frame(a = step, b = aic)