Visualize the decile wise event rate.

blr_decile_capture_rate(
  gains_table,
  xaxis_title = "Decile",
  yaxis_title = "Capture Rate",
  title = "Capture Rate by Decile",
  bar_color = "blue",
  text_size = 3.5,
  text_vjust = -0.3,
  print_plot = TRUE
)

Arguments

gains_table

An object of class blr_gains_table.

xaxis_title

X axis title.

yaxis_title

Y axis title.

title

Plot title.

bar_color

Bar color.

text_size

Size of the bar labels.

text_vjust

Vertical justification of the bar labels.

print_plot

logical; if TRUE, prints the plot else returns a plot object.

See also

Examples

model <- glm(honcomp ~ female + read + science, data = hsb2,
             family = binomial(link = 'logit'))
gt <- blr_gains_table(model)
blr_decile_capture_rate(gt)