# \donttest{
# Compute multiple IAT D-scores
data("raw_data") # import data
iat_cleandata <- clean_iat(raw_data, sbj_id = "Participant",
block_id = "blockcode",
mapA_practice = "practice.iat.Milkbad",
mapA_test = "test.iat.Milkbad",
mapB_practice = "practice.iat.Milkgood",
mapB_test = "test.iat.Milkgood",
latency_id = "latency",
accuracy_id = "correct",
trial_id = "trialcode",
trial_eliminate = c("reminder", "reminder1"),
demo_id = "blockcode",
trial_demo = "demo")
iat_data <- iat_cleandata[[1]]
# compute the mulitple scores and prepare the graphs for the built-in
# strategies
multiple_scores <- multi_dscore(iat_data, ds = "built-in")
data_multiple <- multiple_scores$dscores # store the D-score in a dataframe
# plot the results
multiple_scores$graph
# }
Run the code above in your browser using DataLab