A capacity remediation report can turn remaining reserve into a small action label that operators can scan quickly.

Program

Play the script to choose reserve and inspect the capacity action.

capacity_shift_report.R
reserve <- 
action <- if (reserve >= 15) "hold" else if (reserve >= 8) "shift" else "shed"
line <- paste0('reserve=', reserve, ' ', action)
cat(line, "\n", sep = "")
reserve <- 
action <- if (reserve >= 15) "hold" else if (reserve >= 8) "shift" else "shed"
line <- paste0('reserve=', reserve, ' ', action)
cat(line, "\n", sep = "")
reserve <- 
action <- if (reserve >= 15) "hold" else if (reserve >= 8) "shift" else "shed"
line <- paste0('reserve=', reserve, ' ', action)
cat(line, "\n", sep = "")
reserve selector `reserve` is a scalar report signal that stays simple enough for deterministic variants.
remediation tiers Higher reserve can hold steady, medium reserve shifts load, and low reserve sheds optional work.
operator output The report line exposes both the numeric reserve and the action label.