#' Builds a synthetic variable for education attainment
#' @param data.frame
#' @value data.frame
#' @export
harmonize_demographics <- function(Data){
harmonization_functions <- harmonizePNAD:::list_available_harmonizations("demographics")
for(harmonization_function in harmonization_functions){
print(harmonization_function)
call <- paste0(harmonization_function,"(Data)")
Data <- eval(parse(text = call))
}
Data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.