> load('PNAD2009.RData')
load('PNAD2009.RData')
> ls()
ls()
[1] "PNAD2009"
> dim(PNAD2009)
dim(PNAD2009)
[1] 399387 383
> PNAD2009 <- PNAD2009[,1:40]
PNAD2009 <- PNAD2009[,1:40]
write.csv(PNAD2009, file='pnad2009.csv', quote=FALSE)
> write.csv(PNAD2009, file='pnad2009.csv', quote=FALSE)