From cdda1aab85689da49fdca214ddb612333381680e Mon Sep 17 00:00:00 2001
From: corentinchoisy <corentin.choisy@proton.me>
Date: Mon, 26 May 2025 11:58:04 +0200
Subject: [PATCH] Corrected bug in select_weight formula

---
 R/select_weight.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/select_weight.R b/R/select_weight.R
index 548a021..f344250 100644
--- a/R/select_weight.R
+++ b/R/select_weight.R
@@ -17,7 +17,12 @@ select_weight <- function(df=NULL,grp=NULL,X=NULL,instr=NULL) {
   formu <- paste0(grp,"~")
   formu2 <- paste(X,sep="+",collapse="+")
   formu3 <- paste(instr,sep="+",collapse="+")
-  formu2 <- paste(formu2,formu3,sep="+")
+  if (!is.null(instr)) {
+    formu2 <- paste(formu2,formu3,sep="+")
+  }
+  if (is.null(X)) {
+    formu2 <- formu3
+  }
   formu <- paste(formu,formu2)
   logit_mod <- glm(formula = formu,data = df,family = binomial(link = "probit"))
   res <- residuals(logit_mod)