# get pre-deliberation (stage_id == 1) data from BEP case
data <- human_data[human_data$stage_id == 1 & human_data$case == "BEP", ]
# calculate IC
ic <- get_dri_ic(data)
# generate DRI
get_dri(ic)
# same as the mean of individual DRIs
mean(get_dri_ind(ic)$dri)
Run the code above in your browser using DataLab