#==================================================================================================================================================== 

# AULA 01
# MATERIA: ECONOMETRIA II
# PROFESSOR: DANIEL DOMINGUES DOS SANTOS
# MONITOR: DIEGO MENEZES
# R - VERSAO UTILIZADA: 3.4.0 (2017-04-21)

# SCRIPT: input microdados da PME
# ETAPA: reader

#====================================================================================================================================================

# lista todos os arquivos csv no diretorio de input
(incoming.csv.files = list.files(path = 'Data/Input/', pattern = "*.csv"))


# automatiza o input dos arquivos csv individuais (anuais)
setwd() # redefine o diretorio para o local onde estao armazenados os csv que voce precisa ler
pme.feb.all.years <- lapply(setNames(incoming.csv.files, make.names(gsub("*.csv$", "", incoming.csv.files))), read.csv)


# exploracao dos dados
summary(pme.feb.all.years)   # o objeto em questao trata-se de uma lista de data frames
class(pme.feb.all.years)
View(pme.feb.all.years[[1]]) # pede para ver um ano especifico


# END OF SCRIPT -------------------------------------------------------------------------------------------------------------------------------------