Code
%>%
icw_sr_07 left_join(quant_expn, by = "quant_expn") %>%
group_by(quant_expn, Quant_expn) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
quant_expn | Quant_expn | Nobs |
---|---|---|
D1 | First decile | 830 |
D10 | Tenth decile | 830 |
D2 | Second decile | 830 |
D3 | Third decile | 830 |
D4 | Fourth decile | 830 |
D5 | Fifth decile | 830 |
D6 | Sixth decile | 830 |
D7 | Seventh decile | 830 |
D8 | Eighth decile | 830 |
D9 | Ninth decile | 830 |