set.seed(20348)
n <- 15
d <- 3
x <- matrix(stats::rnorm(n*d), n, d)
z <- rbinom(n, 1, prob = 0.5)
y <- rnorm(n)
weights <- rep(1/n,n)
df <- data.frame(x, z, y)
dh <- df2dataHolder(
treatment.formula = "z ~ .",
outcome.formula = "y ~ ." ,
data = df,
weights = weights)
Run the code above in your browser using DataLab