# get post-deliberation (stage_id == 2) data from Zukunft case
data <- human_data[human_data$stage_id == 2 & human_data$case == "Zukunft", ]
# set plot optional parameters
title <- "Case Zukunft"
suffix <- "Post-Deliberation IC Plot"
caption <- "this is an example plot"
# calculate ic
ic <- get_dri_ic(data)
plot_dri_ic(ic, title, suffix, caption = caption)
Run the code above in your browser using DataLab