[Gmm-commits] r200 - pkg/causalGel/R

[noreply at r-forge.r-project.org]

Author: chaussep
Date: 2022-07-15 17:39:07 +0200 (Fri, 15 Jul 2022)
New Revision: 200

Modified:
   pkg/causalGel/R/otherCausal.R
Log:
fixed a bug with ipw -- GPE

Modified: pkg/causalGel/R/otherCausal.R
===================================================================
--- pkg/causalGel/R/otherCausal.R	2022-07-13 20:29:51 UTC (rev 199)
+++ pkg/causalGel/R/otherCausal.R	2022-07-15 15:39:07 UTC (rev 200)
@@ -484,7 +484,7 @@
         fit <- c(X%*%b)
         phat <- plogis(fit)
         phat[phat>.999] <- .999
-        list(phat=phat, info=c(obj=res1$value, convergence=res1$convergence))
+        list(phat=phat, info=list(obj=res1$value, convergence=res1$convergence))
     }