CPF6

Data - Douanes

Author

François Geerolf

Tous

Code 
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 .}

Correspondance CPF8 - A129

Code 
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 .}