Last data update: 04 oct. 2026, 22:20
Last compile: 04 oct. 2026, 22:20
NATIONAL_NC8PAYSE |>
mutate(CPF6 = as.numeric(CPF6)) |>
left_join(CPF6, by = "CPF6") |>
group_by(CPF6, Cpf6) |>
summarise(Nobs = n()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}NATIONAL_NC8PAYSE |>
mutate(CPF6 = as.numeric(CPF6)) |>
left_join(CPF6, by = "CPF6") |>
left_join(A129, by = "A129") |>
group_by(A129, a129, CPF6, Cpf6) |>
summarise(Nobs = n()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}