Code
%>%
ei_lmhu_m left_join(s_adj, by = "s_adj") %>%
group_by(s_adj, S_adj) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
s_adj | S_adj | Nobs |
---|---|---|
SA | Seasonally adjusted data, not calendar adjusted data | 122553 |
NSA | Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) | 120150 |