R code for making dumbbell (pre- and post-test probability) plots