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

Added IPTW function

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

1
R/iptw.R
View File

@ -30,4 +30,5 @@ iptw <- function(df=NULL,Y=NULL,X=NULL) {
} }
lr_out <- glm(formula = as.formula(formu),data=df,family = binomial(link = 'logit')) lr_out <- glm(formula = as.formula(formu),data=df,family = binomial(link = 'logit'))
psw <- df$TT/fitted(lr_out) + (1-df$TT)/(1-fitted(lr_out)) psw <- df$TT/fitted(lr_out) + (1-df$TT)/(1-fitted(lr_out))
return(psw)
} }