Raw-gain flagging (the common practice, as a baseline)
Examples
sim <- rt_simulate(n_persons = 200, form_exposed = 20, form_new = 10, seed = 1)
raw <- rt_raw_gain(sim, threshold = 0.2)
# raw gains also flag honest candidates who remediated
table(flagged = raw$flag, remediation = sim$truth$remediation)
#> remediation
#> flagged 0 1
#> FALSE 103 49
#> TRUE 24 24