From 2abe89824a1052dda9f0e82430804f254af6b0a8 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Sat, 21 Feb 2026 01:14:20 +0000
Subject: [PATCH 1/2] Initial plan


From b2b93d077883c9338c1a980c82d6f9de1c4ee43d Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Sat, 21 Feb 2026 01:15:34 +0000
Subject: [PATCH 2/2] Fix style: replace F with formula_obj in
 eval(substitute()) calls

Co-authored-by: smasongarrison <6001608+smasongarrison@users.noreply.github.com>
---
 R/func_discord_regression.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/func_discord_regression.R b/R/func_discord_regression.R
index b7d3aa1..d472922 100644
--- a/R/func_discord_regression.R
+++ b/R/func_discord_regression.R
@@ -112,8 +112,8 @@ discord_regression <- function(data,
   formula_ <- stats::as.formula(base::paste(realOutcome, preds, sep = " ~ "))
 
   model <- eval(substitute(
-    stats::lm(formula = F, data = preppedData),
-    list(F = formula_)
+    stats::lm(formula = formula_obj, data = preppedData),
+    list(formula_obj = formula_)
   ))
 
   return(model)
@@ -239,8 +239,8 @@ discord_between_model <- function(data,
   formula_ <- stats::as.formula(base::paste(realOutcome, preds, sep = " ~ "))
 
   model <- eval(substitute(
-    stats::lm(formula = F, data = preppedData),
-    list(F = formula_)
+    stats::lm(formula = formula_obj, data = preppedData),
+    list(formula_obj = formula_)
   ))
 
   return(model)