# Mock Inputs
res_pass <- list(diagnostics = list(discrepancy = c(0.1), max_discrepancy = 0.1))
res_fail <- list(diagnostics = list(discrepancy = c(5.0), max_discrepancy = 5.0))
tcs_pass <- list(consistency = c(0.9))
tcs_fail <- list(consistency = c(0.1))
# Scenario 1: All Good
rlcs_control(res_pass, tcs_pass)
# Scenario 2: ResLik Fail -> ABSTAIN
rlcs_control(res_fail, tcs_pass)
# Scenario 3: TCS Fail -> DEFER
rlcs_control(res_pass, tcs_fail)
Run the code above in your browser using DataLab