## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----eval=FALSE---------------------------------------------------------------
#  library(riskweightedassets)
#  
#  tables <- generate_synthetic_tables(bank_profile = "KSA_BANK")
#  overrides <- data.frame(
#    parameter_key = "SA_RW",
#    dimension_1 = "CORPORATE",
#    dimension_2 = "UNRATED",
#    parameter_value = 0.40
#  )
#  
#  adjusted_tables <- override_regulatory_parameters(
#    tables,
#    overrides,
#    reason = "Approved sensitivity scenario SCN-2026-09",
#    approved_by = "Model Risk Committee decision 2026-09-14"
#  )
#  
#  result <- calculate_tables(adjusted_tables)
#  
#  rwa_summary(result)
#  failed_controls(result)
#  parameter_overrides(result)
#  analyze_credit_risk(result)