# Load the required packages
library(fabricatr)
library(estimatr)
library(randomizr)
# Set the seed for reproducibility
set.seed(385)
data2 <- fabricate(
N = 1000,
treat = complete_ra(N, m = 500),
age = round(rnorm(N, mean = 30, sd = 5)),
education = round(rnorm(N, mean = 12, sd = 2)),
interviews = round(rnorm(N, mean = 10, sd = 2) + 5 * treat)
)
head(data2)
ID treat age education interviews
1 0001 0 32 11 9
2 0002 1 30 13 16
3 0003 1 31 12 16
4 0004 1 33 13 15
5 0005 0 27 15 7
6 0006 0 33 12 9