Skip to content

Instantly share code, notes, and snippets.

View roneyfraga's full-sized avatar

Roney Fraga Souza roneyfraga

View GitHub Profile
@roneyfraga
roneyfraga / exemplo.teste.post.tubmlr.R
Created January 10, 2014 00:38
Exemplo de teste para post no tumblr.
rm(list = ls(all = TRUE))
setwd("~/Dropbox/R-workspace/Censo da Educacao Superior/")
dir()
# ------------------------------
# importando microdados com as funções desenvolvidas por Marcos F. Silva
# remove todos os comentários dos dicionários
# ---------------------------------------------
rm(list = ls(all = TRUE))
setwd("~/Dropbox/R-workspace/2013 tutorial microdados")
options(scipen = 8) # mostrar até 8 casas decimais
dir()
# ---------------------------------------------
# informações a serem retiradas da PNAD 2011
#
# Nome Inicio Tamanho Descrição
# ----------------------------------------------
#
# instalando o pacote 'SAScii' elaborado por Anthony Joseph Damico
# install.packages('SAScii')
# carregando o pacote
library(SAScii)
# lendo o dicionário da PNAD 2011 pessoas
parse.SAScii("2011_PES_input.sas")
# ----------------------------------------------
#
# Convertendo arquivos txt em csv usando as funções cridadas por Marcos F
# Silva carregando o dicionário disponibilizado pelo IBGE
load("2011_dicPNAD.RData")
# listando itens da memória
ls()
# analisando as primeiras 15 linhas dos dicionários
# ----------------------------------------------
#
# 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
# ----------------------------------------------
#
# 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")
#------------------------
# 22 de julho de 2013
# Roney Fraga Souza
# Trabalhar com dados dos censos 2000 e 2010
# censo 2000
# página 85
# V0102 - UF (página 122)
# V1002 - Mesoregião
# V1003 - Microregião
rm(list = ls(all = TRUE))
setwd("~/Dropbox/R-workspace/Censo da Educacao Superior/")
dir()
# ------------------------------
# importando microdados com as funções desenvolvidas por Marcos F. Silva
# remove todos os comentários dos dicionários
filetype on
syntax enable
filetype plugin on
filetype indent on
""set modifiable
set nocompatible
set encoding=utf-8
# Change the prefix key to Ctrl-a.
#unbind C-b
#set -g prefix C-b
# Change the last active window keybinding.
unbind l
bind C-a last-window
# Change the copy mode keybinding.
#unbind [