#change class and rename variables
res = as.data.frame(mediationres)
names(res) <- as.character(quote(c(d, icc1, icc2, BG_a, BG_b, WG_a, WG_b, WG_c, BG_a_est, BG_a_SE, BG_b_est, BG_b_SE, WG_a_est, WG_a_SE, WG_b_est, WG_b_SE, WG_c_est, WG_c_SE, BG_a_est_gmc, BG_a_SE_gmc, BG_b_est_gmc, BG_b_SE_gmc, WG_a_est_gmc, WG_a_SE_gmc, WG_b_est_gmc, WG_b_SE_gmc, WG_c_est_gmc, WG_c_SE_gmc, BG_a_est_cwc, BG_a_SE_cwc, BG_b_est_cwc, BG_b_SE_cwc, WG_a_est_cwc, WG_a_SE_cwc, WG_b_est_cwc, WG_b_SE_cwc, WG_c_est_cwc, WG_c_SE_cwc)))[-1]

#save the data
write.csv(file="MLM_sim_400.csv", x = res)