PPRF %>%
left_join(PPRF_var$TYPE %>%
setNames(c("TYPE", "Type")), by = "TYPE") %>%
group_by(TYPE, Type) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
TYPE | Type | Nobs |
---|---|---|
SSRF | Social security reserve fund | 583 |
SPRF | Sovereign pension reserve fund | 299 |
PPRF %>%
left_join(PPRF_var$VAL %>%
setNames(c("VAL", "Val")), by = "VAL") %>%
group_by(VAL, Val) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
VAL | Val | Nobs |
---|---|---|
MTM | Mark-to-market | 547 |
NA | Not applicable | 262 |
BV | Book value | 73 |