/*  ESTE DO-FILE FOI CRIADO PARA CORRIGIRA A LISTA DE EXERCICIOS DE ECONOMETRIA APLICADA COM ENTREGA PARA O DIA
16 DE MARCO DE 2015: 
1. ABRIR NO STATA AS PNADS DE 2001, 2008 E 2013, BANCO DE DOMICILIOS
2. CALCULAR A EVOLUÇÃO DO:

2A) RENDIMENTO MENSAL DOMICILIAR PER CAPITA MÉDIO
2B) PERCENTUAL DE DOMICÍLIOS ALUGADOS
2C) PERCENTUAL DE DOMICÍLIOS COM REDE COLETORA DE ESGOTO

OBS: ENVIAR DICIONARIOS DE ABERTURA DAS BASES E ARQUIVO WORD COM OS GRÁFICOS DO ITEM 2

INICIALMENTE, OS ALUNOS PREPARARAM 3 DICIONARIOS PARA ABERTURA DAS BASES DE DADOS EM STATA E BAIXARAM OS BANCOS DE DADOS EM TXT DO SITE DO IBGE
AGORA, VAMOS MOSTRAR OS COMANDOS PARA GERAR AS VARIÁVEIS QUE POSSIBILITARAO CHEGAR AOS RESULTADOS PRETENDIDOS */


/*2001*/

cap log close
clear
set more 1
cd "C:\Users\leia2-prof\Downloads\Exercicio 16mar2015"
log using "exercicio16_03_2015", replace
u "pnad_2001.dta", clear

/*gerando identificador de domicílio*/
egen chavedom =concat(V0102 V0103), f(%13.0f)

/*acertando as variáveis do banco*/
recode V4614 999999999999=.

/*gerar renda domiciliar per capita*/
gen rdpc=V4614/V0105

/*dummy para domicilios alugados*/
gen aluguel=0
replace aluguel=1 if V0207==3

/* dummy para domicilios com rede de esgoto*/
gen esgoto=0
replace esgoto=1 if V0217==1|V0217==2

keep V0101 esgoto rdpc aluguel V4611

save "pnad_2001a.dta", replace

/*2008*/

u "pnad_2008.dta", clear

/*gerando identificador de domicílio*/
egen chavedom =concat(V0102 V0103), f(%13.0f)

/*acertando as variáveis do banco*/
recode V4614 999999999999=.
recode V4621 999999999999=.

/*gerar renda domiciliar per capita*/
gen rdpc=V4614/V0105

/*dummy para domicilios alugados*/
gen aluguel=0
replace aluguel=1 if V0207==3

/* dummy para domicilios com rede de esgoto*/
gen esgoto=0
replace esgoto=1 if V0217==1|V0217==2

keep V0101 esgoto rdpc aluguel V4611 V4621

save "pnad_2008a.dta", replace

/*2013*/

u "pnad_2013.dta", clear

/*gerando identificador de domicílio*/
egen chavedom =concat(V0102 V0103), f(%13.0f)

/*acertando as variáveis do banco*/
recode V4614 999999999999=.
recode V4621 999999999999=.

/*gerar renda domiciliar per capita*/
gen rdpc=V4614/V0105

/*dummy para domicilios alugados*/
gen aluguel=0
replace aluguel=1 if V0207==3

/* dummy para domicilios com rede de esgoto*/
gen esgoto=0
replace esgoto=1 if V0217==1|V0217==2

keep V0101 esgoto rdpc aluguel V4611 V4621

save "pnad_2013a.dta", replace

/*vamos juntar as pnads de 2001, 2008 e 2013*/

append using "pnad_2008a.dta"
append using "pnad_2001a.dta"
save "pnad_2001_2013a.dta", replace
rm "pnad_2008a.dta" 
rm "pnad_2001a.dta"
rm "pnad_2013a.dta"