Code
load_data("bis/CBS.RData")Data - BIS
load_data("bis/CBS.RData")CBS %>%
arrange(iso3c, date) %>%
group_by(iso3c, iso2c, `Reporting country`) %>%
summarise(Nobs = n(),
start = first(date),
end = last(date)) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}CBS %>%
group_by(FREQ, Frequency) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| FREQ | Frequency | Nobs |
|---|---|---|
| Q | Quarterly | 4829878 |
CBS %>%
group_by(CBS_BANK_TYPE, `CBS bank type`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| CBS_BANK_TYPE | CBS bank type | Nobs |
|---|---|---|
| 4B | Domestic banks | 1926648 |
| 4R | Domestic banks(4B), excl. domestic positions | 1911098 |
| 4O | All excluding 4C banks, excl. domestic positions (= 4R + 4Q +4V) | 652846 |
| 4N | All including 4C banks, excl. domestic positions (=4O + 4C) | 280153 |
| 4C | Inside-area foreign banks consolidated by their parent | 54896 |
| 4M | All banks (=4B +4C + 4D +4E) | 4237 |
CBS %>%
group_by(CBS_BASIS, `CBS reporting basis`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| CBS_BASIS | CBS reporting basis | Nobs |
|---|---|---|
| F | Immediate counterparty basis | 2727608 |
| U | Guarantor basis | 1525029 |
| Q | Net risk transfers (Inward - Outward) | 355681 |
| O | Outward risk transfers | 221560 |
CBS %>%
group_by(L_POSITION, `Balance sheet position`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| L_POSITION | Balance sheet position | Nobs |
|---|---|---|
| C | Total claims | 2387754 |
| I | International claims | 1737088 |
| B | Local claims | 248343 |
| X | Credit commitments | 172282 |
| W | Guarantees extended | 162474 |
| M | Local liabilities | 80436 |
| D | Cross-border claims | 33282 |
| L | Total liabilities | 5488 |
| F | Total assets (financial and non-financial) | 1426 |
| K | Capital / equity | 1305 |
CBS %>%
group_by(L_INSTR, `Type of instruments`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| L_INSTR | Type of instruments | Nobs |
|---|---|---|
| A | All instruments | 4696898 |
| V | Derivatives | 130279 |
| D | Debt securities | 1354 |
| G | Loans and deposits | 1347 |