SAV2CSV Converter

sav2csv.R

library(memisc)

filenames <- data.frame(c('CPV2010', 'PROV', 'DPTO', 'FRAC', 'RADIO', 'VIVIENDA', 'HOGAR', 'PERSONA'),
                        c('censo', 'provincias', 'departamentos', 'fracciones', 'radios', 'viviendas',
                          'hogares', 'personas'))

names(filenames) <- c('sav', 'csv')

sav2csv <- function(x) {
  savname <- x[1]
  csvname <- x[2]
  
  data <- as.data.set(spss.system.file(paste(savname, '.sav', sep = "")))
  
  write.csv(data, paste(csvname, '.csv', sep = ''), row.names = FALSE)
}

apply(filenames, 1, sav2csv)