set.seed(42)
df <- data.frame(
id = rep(1:10, each = 30),
t = rep(1:30, 10),
y = rnorm(300),
x = rnorm(300)
)
fit <- dcce(df, "id", "t", y ~ x, model = "mg", cross_section_vars = NULL)
boot_res <- bootstrap(fit, reps = 50)
print(boot_res)
Run the code above in your browser using DataLab