!!Trabalho em progresso!!
Repositório destinado e servir de memória de cálculo para capítulo sobre o desenvolvimento das esferas alta e baixa durante esse século, paseado nas POFs de 2002/3, 2008/9 e 2017/8
Até o momento o projeto está organizado assim:
./
|
|— 00_funcoes.R
|— 01_rend_resp.R
|— 02_rend_resp.R
|— 03_rend_resp.R
|— 04_comparacoes.R
|— …
|— 96_download_leitura_2003.R
|— 97_pof2003.R
|— 98_download_leitura_2009.R
|— 99_pof2009.R
Os scripts estão numerados na ordem em que devem ser rodados na verdade
o 96
e o 98
tem que ser rodados antes do 02
e 03
.
# Isso não é boa prática, depois transformamos em pacote
source("00_funcoes.R")
# Funções carregadas
ls()
#> [1] "classificar_rendimentos" "classificar_rendimentos2003"
#> [3] "classificar_rendimentos2009" "instrucoes_sas"
#> [5] "ler_despesas2003" "ler_despesas2009"
#> [7] "ler_despesas2018" "ler_rendimentos2003"
#> [9] "ler_rendimentos2009" "ler_rendimentos2018"
#> [11] "subst_na"
t0 <- Sys.time()
source("01_rend_desp.R")
Sys.time() - t0
#> Time difference of 1.738312 mins
# tabelas carregadas
ls()
#> [1] "classificar_rendimentos" "classificar_rendimentos2003"
#> [3] "classificar_rendimentos2009" "corte"
#> [5] "despesas_esferas" "esferas_ucs"
#> [7] "instrucoes_sas" "ler_despesas2003"
#> [9] "ler_despesas2009" "ler_despesas2018"
#> [11] "ler_rendimentos2003" "ler_rendimentos2009"
#> [13] "ler_rendimentos2018" "rendas_classificadas"
#> [15] "rendas_esferas" "rendas_ucs"
#> [17] "rendas2018" "subst_na"
#> [19] "t0"
Ainda tem alguns arquivos ao final (98 e 99) em caráter preliminar (até por isso essa numeração). O que eles fazem é reproduzir o trabalho de 2016.