Corrected bug in iptw function

2025-05-26 17:01:17 +02:00
parent ce37af5ec4
commit fd6c1efe06
1 changed files with 1 additions and 1 deletions
--- a/R/iptw.R
+++ b/R/iptw.R
@ -19,7 +19,7 @@ iptw <- function(df=NULL,Y=NULL,X=NULL,target="ate") {
  if (!("id"%in%colnames(df))) {
    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)]
  if (length(X)==1) {
    formu <- paste0(Y,"~",X)