# get post-deliberation (stage_id == 2) data from Zukunft case
data <- human_data[human_data$stage_id == 2 & human_data$case == "Zukunft", ]
# generate IC
ic <- get_dri_ic(data)
# get individual DRIs
get_dri_ind(ic)
Run the code above in your browser using DataLab