corentinchoisy/SPT
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corrected bug in select_weight formula

Browse Source
This commit is contained in:
Corentin Choisy
2025-05-26 11:58:04 +02:00
parent 0a8437fc48
commit cdda1aab85
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/select_weight.R
View File

@ -17,7 +17,12 @@ select_weight <- function(df=NULL,grp=NULL,X=NULL,instr=NULL) {
formu <- paste0(grp,"~") formu <- paste0(grp,"~")
formu2 <- paste(X,sep="+",collapse="+") formu2 <- paste(X,sep="+",collapse="+")
formu3 <- paste(instr,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) formu <- paste(formu,formu2)
logit_mod <- glm(formula = formu,data = df,family = binomial(link = "probit")) logit_mod <- glm(formula = formu,data = df,family = binomial(link = "probit"))
res <- residuals(logit_mod) res <- residuals(logit_mod)