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

Corrected bug in iptw function

Browse Source
This commit is contained in:
Corentin Choisy
2025-05-26 17:01:17 +02:00
parent ce37af5ec4
commit fd6c1efe06
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/iptw.R
View File

@ -19,7 +19,7 @@ iptw <- function(df=NULL,Y=NULL,X=NULL,target="ate") {
if (!("id"%in%colnames(df))) { if (!("id"%in%colnames(df))) {
stop('ERROR: no column named id provided') stop('ERROR: no column named id provided')
} }
if (target !="ate" & target != "att" & type !="atu") if (target !="ate" & target != "att" & target !="atu")
dff <- df[,c(Y,X)] dff <- df[,c(Y,X)]
if (length(X)==1) { if (length(X)==1) {
formu <- paste0(Y,"~",X) formu <- paste0(Y,"~",X)