metodologia

# instalar o pacote 'SAScii' elaborado por Anthony Joseph Damico
#install.packages('SAScii')
 # carregar o pacote
library(SAScii)
 # ler dicionário da PNAD 2011 pessoas
parse.SAScii( "2011_PES_input.sas")
 # exemplo de como abir os dados
x <- read.SAScii( "2011_PES.TXT" , "2011_PES_input.sas" , beginline=1)
head( x )
 # segundo exemplo de como abrir os dados

metodologia

# limpar memória do R
rm(list=ls(all=TRUE))
# indicar diretório de trabalho
setwd('~/Documents/R-workspace/2013 tutorial microdados')
# mostrar até 8 casas decimais
options("scipen" = 8)
# listar arquivos do diretório de trabalho
dir()
# ----------------------------------------------
# informações a serem retiradas da PNAD 2011

metodologia

# instalar o pacote 'SAScii' elaborado por Anthony Joseph Damico
#install.packages('SAScii')
# carregar o pacote
library(SAScii)
# ler dicionário da PNAD 2011 pessoas
parse.SAScii( "2011_PES_input.sas")
# exemplo de como abir os dados
x <- read.SAScii( "2011_PES.TXT" , "2011_PES_input.sas" , beginline=1)
head( x )
# segundo exemplo de como abrir os dados

metodologia

# Convertendo arquivos txt em csv usando as funções criadas por Marcos F Silva
# carregar o dicionário disponibilizado pelo IBGE
load('2011_dicPNAD.RData')
# listar itens da memória
ls()
# analisar as primeiras 15 linhas dos dicionários
head(dicdom2011, 15)
head(dicpes2011, 15)
# carregar as funções fwf2csv() e txt2df() desenvolvidas por Marcos
source("fwf2csv.R")

metodologia

# ----------------------------------------------
# Acessar dados de arquivo csv via sqldf
# instalar o pacote sqldf()
#install.packages(sqldf)
# carregar o pacote
library(sqldf)
# listar itens no diretório de trabalho
dir()
#acessar dados selecionados em um arquivo csv
a <- read.csv2.sql('2011_PES.csv',  sql=" select V0101, UF, V0302, V8005, V0404, V4011, V06111, V06112, V9906,  V9008, V9532, V4729 from file where V9906=2141 ", header=TRUE, sep=";")

metodologia

# ----------------------------------------------
# Primeiros passos com o SQLite
# carregar pacote RSQLite
library('RSQLite')
# criar uma base de dados
sqldf("attach pnad as new")
# estabelecer uma conexão
drv<-dbDriver("SQLite")
con<-dbConnect(drv, dbname='pnad')
# transformar um csv em uma base SQLite

metodologia

# ----------------------------------------------
# read.SAScii.sqlite() criada por  Anthony Joseph Damico
# verificar se o dicionário esta sendo importado de maneira correta
parse.SAScii('2011_PES_input.sas')
# carregar a função read.SAScii.sqlite()
source('read.SAScii.sqlite.R')
# é possível baixar a função via:
#source_url( "https://raw.github.com/ajdamico/usgsd/master/SQLite/read.SAScii.sqlite.R" )
drv <- dbDriver("SQLite")
con <- dbConnect(drv, dbname='pnad')