caminho.microdados <- file.path(file.choose())###abrir arquivo, neste caso ‘pes2005’
dados1 <- le.pesquisa (dicionario=dicpes2005, pathname.in=caminho.microdados, pathname.out="dados1.Rdata",
codigos=c("UF","V0102","V0103","V0301","V0302","V8005","V0401","V0402","V0403","V0404","V4703","V4704","V4705","V4707",
"V4718","V4729"),nomes=c("UF","NCONTR","NSERIE","NORDEM","SEXO","IDADE","CONDDOM","CONDFAM",
"NFAM","RACA_COR","ANOSEST","CONDATV","CONDOCP","HTRAB","RENDTRAB","PESOP"), quant=408148)
head(dados1)
caminho.microdados <- file.path(file.choose())###abrir arquivo, neste caso ‘dom 2005’
dados2 <- le.pesquisa (dicionario=dicdom2005, pathname.in=caminho.microdados, pathname.out="dados2.Rdata",
codigos=c("V0102",
"V0103","UPA","V4617","V4618"),nomes=c("NCONTR", "NSERIE","UPA","ESTRATO","PSU"), quant=408148)
dado12 <- merge_blocos(dados1,dados2)
save(dado12,file="dado12.rda")
save(dicpe2005,file= "dicpes2005.csv")
head(dado12)