É possível alterar a localização dos diretórios, mas depois precisa também alterar no restante do código.
# Cria diretorios para baixar as Pnads:
dir.create("C:/PnadC_SPSS")
dir.create("C:/PnadC_SPSS/Trimestrais")
dir.create("C:/PnadC_SPSS/Anuais")
dir.create("C:/PnadC_SPSS/PorEntrevista")
# Instala pacman
install.packages("pacman")
library(pacman)
p_load(PNADcIBGE, haven)
for(ano in 2012:2020) {
for(trimestre in 1:4) {
PnadC <- get_pnadc(year = ano, quarter = trimestre, design = F, labels = F)
write_sav(PnadC, paste0("C:/PnadC_SPSS/Trimestrais/PnadC_",ano,"_tri_",trimestre,".sav"))
}
}
for(ano in 2021:2021) {
for(trimestre in 1:1) {
PnadC <- get_pnadc(year = 2021, quarter = trimestre, design = F, labels = F)
write_sav(PnadC, paste0("C:/PnadC_SPSS/Trimestrais/PnadC_",ano,"_tri_",trimestre,".sav"))
}
}
# Visita 1
for(ano in 2012:2019) {
PnadC <- get_pnadc(year = ano, interview = 1, design = F, labels = F, deflator = F)
write_sav(PnadC, paste0("C:/PnadC_SPSS/PorEntrevista/PnadC_",ano,"_visita1.sav"))
}
# Visita 5:
for(ano in 2016:2019) {
PnadC <- get_pnadc(year = ano, interview = 5, design = F, labels = F, deflator = F)
write_sav(PnadC, paste0("C:/PnadC_SPSS/PorEntrevista/PnadC_",ano,"_visita5.sav"))
}
for(ano in 2016:2019) {
for(topico in c(2,4)) {
PnadC <- get_pnadc(year = ano, topic = topico, design = F, labels = F, deflator = F)
write_sav(PnadC, paste0("C:/PnadC_SPSS/Anuais/PnadC_Anual_",ano,"_conc_",topico,"trim.sav"))
}
}
Os resultados anuais sobre outros temas ou tópicos são obtidos acumulando-se informações de determinada visita ao longo do ano, ou são concentrados em determinado trimestre.