tted, .fitted))
  
* # fit correctly bootsrapped ipw model
* lm(outcome ~ exposure, data = .df, weights = wts) %&gt;%
*   tidy()
}
```
]

---

&lt;span class = "num"&gt;2&lt;/span&gt; &lt;h3&gt; &amp;nbsp; &amp;nbsp; &amp;nbsp;  &amp;nbsp; Use {rsample} to bootstrap our causal effect&lt;/h3&gt; 



```r
library(rsample)

# fit ipw model to bootstrapped samples
ipw_results &lt;- bootstraps(df, 1000, apparent = TRUE) %&gt;% 
  mutate(results = map(splits, fit_ipw)) 
```

---


&lt;span class = "num"&gt;2&lt;/