### Define the data frame
data <- data.frame(Y_1 = c(1,0,1,0,0,1),
Y_0 = c(0, 1, 0, 1, 0, 1))
## Simulate the sampling distribution
nIter = 10000
sate_est = rep(NA, nIter)
set.seed(53703)
for(i in 1:nIter){
data$D = sample(rep(c(0,1), each=3))
data$Y = data$D*data$Y_1 + (1-data$D)*data$Y_0
sate_est[i] = mean(data$Y[data$D==1]) - mean(data$Y[data$D==0])
}