# NOT RUN {
## Artifact distributions from "ma_r" with individual corrections
ma_obj_ic_pairwise <- ma_r(ma_method = "ic", rxyi = "rxyi", n = "n",
rxx = "rxxi", ryy = "ryyi",
pairwise_ads = TRUE,
correct_rr_x = FALSE, correct_rr_y = FALSE,
construct_x = "x_name", construct_y = "y_name",
sample_id = "sample_id", moderators = "moderator",
data = data_r_meas_multi)
summarize_ads(ma_obj = ma_obj_ic_pairwise)
## Artifact distributions from "ma_r" with artifact-distribution corrections (pairwise ADs)
ma_obj_ad_pairwise <- ma_r(ma_method = "ad", rxyi = "rxyi", n = "n",
rxx = "rxxi", ryy = "ryyi",
pairwise_ads = TRUE,
correct_rr_x = FALSE, correct_rr_y = FALSE,
construct_x = "x_name", construct_y = "y_name",
sample_id = "sample_id", moderators = "moderator",
data = data_r_meas_multi)
summarize_ads(ma_obj = ma_obj_ad_pairwise)
## Artifact distributions from "ma_r" with artifact-distribution corrections (overall ADs)
ma_obj_ad_nonpairwise <- ma_r(ma_method = "ad", rxyi = "rxyi", n = "n",
rxx = "rxxi", ryy = "ryyi",
pairwise_ads = FALSE,
correct_rr_x = FALSE, correct_rr_y = FALSE,
construct_x = "x_name", construct_y = "y_name",
sample_id = "sample_id", moderators = "moderator",
data = data_r_meas_multi)
summarize_ads(ma_obj = ma_obj_ad_nonpairwise)
# }
Run the code above in your browser using DataLab