# adding "fixed" treatment indicator in each period
n <- 5
xt <- function(n, ...) {
covar_loggamma(n, normal.cor = 0.2) |>
covar_add(list(a = 0, a = 1))
}
xt(n)
# adding randomized treatment indicator
xt <- function(n, ...) {
covar_loggamma(n, normal.cor = 0.2) |>
covar_add(list(a = rbinom(n, 1, 0.5), a = rbinom(n, 1, 0.5)))
}
xt(5)
# adding baseline covariates
xt <- function(n, ...) {
covar_loggamma(n, normal.cor = 0.2) |>
covar_add(rnorm(n), names = "w1") |> # data
covar_add(list(w2 = rnorm(n))) |> # data
covar_add(data.frame(w3 = rnorm(n))) |> # data
covar_add(\(n) data.frame(w4 = rnorm(n))) |> # function
covar_add(\(n) rnorm(n), names = "w5") # function
}
xt(5)
Run the code above in your browser using DataLab