Minor update propensity demo twang demo

Nth-iteration-labs · Jul 25, 2020 · 0fc453a · 0fc453a
1 parent a2ffe17
commit 0fc453a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/demo/demo_simpsons_paradox_propensity.R b/demo/demo_simpsons_paradox_propensity.R
@@ -206,7 +206,7 @@ print(paste("Movie:",round(sum(prop_dt[choice==2]$reward)/nrow(prop_dt[choice==2
 # ------------------------------------------------------------------------------------------------------------
 # ----------------------------------   Biased policy repaired with estimated prop  ---------------------------
 # ------------------------------------------------------------------------------------------------------------
-
+#
 # if(!require(twang)) install.packages("twang")
 #
 # b_dt$choice                       <- b_dt$choice - 1
@@ -215,7 +215,7 @@ print(paste("Movie:",round(sum(prop_dt[choice==2]$reward)/nrow(prop_dt[choice==2
 # b_dt$choice                       <- b_dt$choice + 1
 #
 # weights                           <- get.weights(ip, stop.method = "es.mean")
-# b_dt$p                            <- weights
+# b_dt$p                            <- 1 / weights
 #
 # f                                 <- formula("reward ~ choice | X.1 + X.2 | p")
 #
@@ -234,5 +234,5 @@ print(paste("Movie:",round(sum(prop_dt[choice==2]$reward)/nrow(prop_dt[choice==2
 #
 # print(paste("Sport:",sum(prop_dt[choice==1]$reward)/nrow(prop_dt[choice==1]))) # 0.6 CTR Sport again, yay!
 # print(paste("Movie:",sum(prop_dt[choice==2]$reward)/nrow(prop_dt[choice==2]))) # 0.5 CTR Movie again, yay!
-
+#