# get pre-deliberation (stage_id == 1) data from Zukunft case
data <- human_data[human_data$stage_id == 1 & human_data$case == "Zukunft", ]
# create permutations
perms <- permute_dri(data, iterations = 100, summary = FALSE)
summarize_perm_dri(perms)
Run the code above in your browser using DataLab