if (FALSE) {
# Generate synthetic data
X <- matrix(rnorm(20*5), 20, 5)
# Generate randomizations using exact enumeration
RandomizationSet_Exact <- generate_randomizations(
n_units = nrow(X),
n_treated = round(nrow(X)/2),
X = X,
randomization_accept_prob=0.1,
randomization_type="exact")
# Generate randomizations using Monte Carlo sampling
RandomizationSet_MC <- generate_randomizations(
n_units = nrow(X),
n_treated = round(nrow(X)/2),
X = X,
randomization_accept_prob = 0.1,
randomization_type = "monte_carlo",
max_draws = 100000,
batch_size = 1000)
}
Run the code above in your browser using DataLab