# NOT RUN {
ma_obj <- ma_r(ma_method = "ic", rxyi = rxyi, n = n, rxx = rxxi, ryy = ryyi,
construct_x = x_name, construct_y = y_name, sample_id = sample_id,
moderators = moderator, data = data_r_meas_multi,
clean_artifacts = FALSE, impute_artifacts = FALSE)
plot_forest(ma_obj = ma_obj, analyses = list(pair_id = 1))
plot_forest(ma_obj = ma_obj, analyses = list(pair_id = 2))
plot_forest(ma_obj = ma_obj, analyses = list(pair_id = 1), show_filtered = TRUE)
plot_forest(ma_obj = ma_obj$construct_pairs[[1]])
# }
Run the code above in your browser using DataLab