# get pre-deliberation (stage_id == 1) data from Zukunft case
data <- human_data[human_data$stage_id == 1 & human_data$case == "Zukunft", ]
# permute DRI 100 times
permute_dri(data, iterations = 100)
Run the code above in your browser using DataLab