set.seed(89)
test_dfs <- lapply(1:5, function (x) data.frame(a = rnorm(1000),
b = runif(1000),
c = 2*rnorm(1000)))
midas_res <- combine("a ~ b + c", df_list = test_dfs)
Run the code above in your browser using DataLab