Projeto de IC

dicionariosIBGE/DESCRIPTION

@@ -1,16 +1,16 @@
 Package: dicionariosIBGE
 Type: Package
-Title: Dictionaries for reading survey microdata from IBGE
-Version: 1.1
-Date: 2010-05-14
-Author: Erick Fonseca <[email protected]>, Alexandre
-        Rademaker<[email protected]>
-Maintainer: Erick Fonseca <[email protected]>
-Description: This package contains dictionaries for reading microdata
+Title: Dictionaries for reading microdata surveys from IBGE
+Version: 1.6
+Date: 2014-08-13
+Author: Alexandre Rademaker <[email protected]>
+Maintainer: Alexandre Rademaker <[email protected]>
+Description: This package contains the dictionaries for reading microdata
         from IBGE (Brazilian Institute of Geography and Statistics)
         surveys PNAD, PME and POF.
-License: GNU Public License
-Suggests: IBGEPesq
-LazyLoad: yes
-Packaged: 2010-05-14 20:42:13 UTC
-Built: R 2.10.0; ; 2010-07-01 18:22:00 UTC; unix
+License: GPL (>= 2)
+Depends: R (>= 2.15.1)
+Repository: CRAN
+URL: http://github.com/arademaker/dicionariosIBGE
+BugReports: http://github.com/arademaker/dicionariosIBGE/issues
+

dicionariosIBGE/LICENSE.note

@@ -0,0 +1,16 @@
+
+This software is distributed under the terms of the GNU General Public
+License as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+As of writing, this essentially boils down to two possible licenses,
+GPL version 2 and version 3.  Copies of these licenses are available
+in files GPL-2 and GPL-3 in the sources of this package, as well as at
+
+http://www.r-project.org/Licenses/
+
+They can also be viewed from within R using 
+
+RShowDoc("GPL-2")
+RShowDoc("GPL-3")
+

dicionariosIBGE/NAMESPACE

@@ -0,0 +1,3 @@
+exportPattern("^[^\\.]")
+importFrom("utils", "setTxtProgressBar", "txtProgressBar",
+             "type.convert")

dicionariosIBGE/R/.Rhistory

@@ -0,0 +1,49 @@
+import("utils",
+"setTxtProgressBar",
+"txtProgressBar",
+"type.convert")
+?import
+??import
+??importFrom
+base::import("utils",
+"setTxtProgressBar",
+"txtProgressBar",
+"type.convert")
+base::importFrom("utils",
+"setTxtProgressBar",
+"txtProgressBar",
+"type.convert")
+base::ImportFrom("utils",
+"setTxtProgressBar",
+"txtProgressBar",
+"type.convert")
+install.packeges("base")
+install.packages("base")
+install.packages("base")
+install.packages("base")
+install.packages("base")
+install.packages("base")
+install.packages("base")
+install.packages("base")
+library(base)
+ImportFrom("utils",
+"setTxtProgressBar",
+"txtProgressBar",
+"type.convert")
+.ImportFrom("utils",
+"setTxtProgressBar",
+"txtProgressBar",
+"type.convert")
+.ImportFrom("utils")
+ImportFrom("utils")
+importFrom("utils")
+??setTxtProgressBar
+??utils
+filename <- tempfile()
+promptPackage("utils", filename = filename)
+file.show(filename)
+unlink(filename)
+filename <- tempfile()
+promptPackage("dicionariosIBGE", filename = filename)
+file.show(filename)
+unlink(filename)

dicionariosIBGE/R/le.pesquisa.R

@@ -0,0 +1,69 @@
+le.pesquisa <- function(dicionario, pathname.in, codigos, rotulos = NULL, tbloco = 2000, nlines = NA) {
+
+  inicios <- numeric(0)
+  tamanhos <- numeric(0)
+
+  #Condições da função:
+  ## Se é um NA, print "You must provide the number of lines of the data file"
+  if(is.na(nlines))
+    stop(paste("You must provide the number of lines of the data file", substitute(dicionario), sep=" "))
+
+  ## Se os valores forem falsos, print "The", substitute(dicionario)," is not a valid object for 'dicionario' parameter"
+  if(!all(c("inicio","cod", "tamanho", "desc") == colnames(dicionario)) )
+    stop(paste("The", substitute(dicionario)," is not a valid object for 'dicionario' parameter",sep=" "))
+
+  ## Se os valores forem falsos, print "The", substitute(dicionario)," is not a valid object for 'rotulos' parameter"
+  if(!all(c("cod", "valor", "rotulo") == colnames(rotulos)) )
+    stop(paste("The", substitute(rotulos), "is not a valid object for 'rotulos' parameter", sep=" "))
+
+  tmp <- merge(data.frame(cod = codigos, stringsAsFactors = FALSE), dicionario)
+  inicios <- tmp[ ,"inicio"]
+  tamanhos <- tmp[ ,"tamanho"]
+  rm(tmp)
+  ## Se o início do dado for == 0, print "Variables do not exist in", substitute(dicionario)  
+  if (length(inicios) == 0)
+    stop(paste("Variables do not exist in", substitute(dicionario), sep=" "))
+
+  ## Aqui é quando está lendo? "Will display a progress bar on the R console via text representation
+  pb <- txtProgressBar(min = 0, max = (nlines/tbloco) * length(codigos), style = 3)
+  arq <- file(pathname.in, open = "r")
+  dados <- NULL
+
+  process <- 0
+  cont <- TRUE
+  while (cont) {
+    bloco <- scan(file = arq, what = " ", sep = " ", nlines = tbloco, quiet = TRUE)
+    df.temp <- NULL
+    for (k in 1:length(inicios)) {
+      coluna <- substr(bloco, inicios[k], inicios[k] + tamanhos[k] - 1) 
+      if(is.null(df.temp))
+        df.temp <- data.frame(type.convert(coluna))
+      else 
+        df.temp <- cbind(df.temp, data.frame(type.convert(coluna)))
+      process <- process + 1
+      setTxtProgressBar(pb, process)
+    }
+    ## Se os dados forem nulos
+    if(is.null(dados))
+      dados <- df.temp
+    else
+      dados <- rbind(dados, df.temp)
+    if (length(bloco) < tbloco) 
+      cont <- FALSE
+  }
+  close(arq)
+  rm(bloco, df.temp)
+  colnames(dados) <- codigos
+  close(pb)
+  if(is.null(rotulos)){
+    return(dados)
+  }
+  for(n in 1:ncol(dados)){
+    colname <- colnames(dados)[n]
+    if(colname %in% rotulos$cod){
+      tmp <- rotulos[rotulos$cod == colname, 2:3]
+      dados[,n] <- factor(dados[,n], levels = tmp[,1], labels = tmp[,2])
+    }
+  }
+  return(dados)
+}

dicionariosIBGE/man/dic10pof2008.2009.Rd

@@ -0,0 +1,31 @@
+\name{dic10pof2008.2009}
+\docType{data}
+
+\alias{dic10pof2008.2009}
+
+\encoding{UTF-8}
+\title{Dictionary for estimated rent record POF 2008-2009 survey}
+
+\description{
+
+  Data dictionary for reading "T_ALUGUEL_ESTIMADO_S.txt" file (estimated
+  rent (type 10) record from POF 2008-2009 survey).
+
+}
+
+\format{
+  This dictionary is a data frame with one line for each variable,
+  and it has 4 columms, with important information of each variable.
+
+  \tabular{lll}{
+    inicio \tab numeric \tab Position of the value's first character in
+    the data file \cr
+    cod \tab character \tab Variable code \cr
+    tamanho \tab numeric \tab Field size \cr
+    desc \tab character \tab Short description\cr
+
+  }
+}
+\source{The dictionaries were made based on the documentation of the
+    PNAD survey available at \url{http://www.ibge.gov.br}.}
+\keyword{datasets}

dicionariosIBGE/man/dic11pof2008.2009.Rd

@@ -0,0 +1,41 @@
+\name{dic11pof2008.2009}
+\docType{data}
+
+\alias{dic11pof2008.2009}
+
+\encoding{UTF-8}
+\title{Dictionary for book of outgoing record POF 2008-2009 survey}
+
+\description{
+
+  Data dictionary for reading "T_CADERNETA_DESPESA_S.txt" file (book of
+  outgoing (type 11) record from POF 2008-2009 survey).
+
+  The \code{COD_LOCAL_COMPRA} (site of acquisition) appers in the file
+  'Descricoes dos registros POF 2008-2009.doc' (documentation provided
+  by IBGE) as having the level \code{88801} associated to the label
+  \code{ignorado}, but in the files 'Classificacoes POF 2008-2009.doc' and
+  'Cadastro de local de aquisicoes da POF 2008-2009.xls' appears the
+  same label associated to other level, \code{99902}. In the file
+  'Descricoes dos registros POF 2008-2009.doc' the level ZERO is
+  associated to the label \code{nao aplicavel}.
+
+
+}
+
+\format{
+  This dictionary is a data frame with one line for each variable,
+  and it has 4 columms, with important information of each variable.
+
+  \tabular{lll}{
+    inicio \tab numeric \tab Position of the value's first character in
+    the data file \cr
+    cod \tab character \tab Variable code \cr
+    tamanho \tab numeric \tab Field size \cr
+    desc \tab character \tab Short description\cr
+
+  }
+}
+\source{The dictionaries were made based on the documentation of the
+    PNAD survey available at \url{http://www.ibge.gov.br}.}
+\keyword{datasets}

dicionariosIBGE/man/dic12pof2008.2009.Rd

@@ -0,0 +1,46 @@
+\name{dic12pof2008.2009}
+\docType{data}
+
+\alias{dic12pof2008.2009}
+
+\encoding{UTF-8}
+\title{Dictionary for individual outgoing record POF 2008-2009 survey}
+
+\description{
+
+  Data dictionary for reading "T_DESPESA_S.txt" file (individual
+  outgoing (type 12) record from POF 2008-2009 survey).
+
+  The \code{COD_LOCAL_COMPRA} (site of acquisition) appers in the file
+  'Descricoes dos registros POF 2008-2009.doc' (documentation provided
+  by IBGE) as having the level \code{88801} associated to the label
+  \code{ignorado}, but in the files 'Classificacoes POF 2008-2009.doc' and
+  'Cadastro de local de aquisicoes da POF 2008-2009.xls' appears the
+  same label associated to other level, \code{99902}. In the file
+  'Descricoes dos registros POF 2008-2009.doc' the level ZERO is
+  associated to the label \code{nao aplicavel}.
+
+  The variable \code{COD_CARACTERISTICA} (characteristic of the drugs)
+  has the value ZERO, when reading the data file, but that value is not
+  related to any category in any of the documentation files (provided by
+  IBGE).Because of that appears NAs in the categorical variables when
+  you read the data using the \code{rotulos} parameter of the
+  \link{le.pesquisa} function.
+}
+
+\format{
+  This dictionary is a data frame with one line for each variable,
+  and it has 4 columms, with important information of each variable.
+
+  \tabular{lll}{
+    inicio \tab numeric \tab Position of the value's first character in
+    the data file \cr
+    cod \tab character \tab Variable code \cr
+    tamanho \tab numeric \tab Field size \cr
+    desc \tab character \tab Short description\cr
+
+  }
+}
+\source{The dictionaries were made based on the documentation of the
+    PNAD survey available at \url{http://www.ibge.gov.br}.}
+\keyword{datasets}

dicionariosIBGE/man/dic13pof2008.2009.Rd

@@ -0,0 +1,40 @@
+\name{dic13pof2008.2009}
+\docType{data}
+
+\alias{dic13pof2008.2009}
+
+\encoding{UTF-8}
+\title{Dictionary for vehicle outgoing record POF 2008-2009 survey}
+
+\description{
+
+  Data dictionary for reading "T_DESPESA_VEICULO_S.txt" file (vehicle
+  outgoing (type 13) record from POF 2008-2009 survey).
+
+  The \code{COD_LOCAL_COMPRA} (site of acquisition) appers in the file
+  'Descricoes dos registros POF 2008-2009.doc' (documentation provided
+  by IBGE) as having the level \code{88801} associated to the label
+  \code{ignorado}, but in the files 'Classificacoes POF 2008-2009.doc' and
+  'Cadastro de local de aquisicoes da POF 2008-2009.xls' appears the
+  same label associated to other level, \code{99902}. In the file
+  'Descricoes dos registros POF 2008-2009.doc' the level ZERO is
+  associated to the label \code{nao aplicavel}.
+
+}
+
+\format{
+  This dictionary is a data frame with one line for each variable,
+  and it has 4 columms, with important information of each variable.
+
+  \tabular{lll}{
+    inicio \tab numeric \tab Position of the value's first character in
+    the data file \cr
+    cod \tab character \tab Variable code \cr
+    tamanho \tab numeric \tab Field size \cr
+    desc \tab character \tab Short description\cr
+
+  }
+}
+\source{The dictionaries were made based on the documentation of the
+    PNAD survey available at \url{http://www.ibge.gov.br}.}
+\keyword{datasets}

dicionariosIBGE/man/dic14pof2008.2009.Rd

@@ -0,0 +1,31 @@
+\name{dic14pof2008.2009}
+\docType{data}
+
+\alias{dic14pof2008.2009}
+
+\encoding{UTF-8}
+\title{Dictionary for income and deductions record POF 2008-2009 survey}
+
+\description{
+
+  Data dictionary for reading "T_RENDIMENTOS_S.txt" file (income and
+  deductions (type 14) record from POF 2008-2009 survey).
+
+}
+
+\format{
+  This dictionary is a data frame with one line for each variable,
+  and it has 4 columms, with important information of each variable.
+
+  \tabular{lll}{
+    inicio \tab numeric \tab Position of the value's first character in
+    the data file \cr
+    cod \tab character \tab Variable code \cr
+    tamanho \tab numeric \tab Field size \cr
+    desc \tab character \tab Short description\cr
+
+  }
+}
+\source{The dictionaries were made based on the documentation of the
+    PNAD survey available at \url{http://www.ibge.gov.br}.}
+\keyword{datasets}