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;/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 bootstrap