backdoor_experiment <- run_experiment(backdoor,
intervene = list(x = c(0,1)),
response = "y",
n = 10000)
colMeans(backdoor_experiment$response_list$y)
Run the code above in your browser using DataLab