0-create_data.R

library(foreign)
set.seed(1)
df <- as.data.frame(matrix(rnorm(1e8), ncol = 10))

write.csv(df, "/tmp/test.csv", row.names = FALSE)
write.dta(df, "/tmp/test.dta")

1-csv2sav.sps

GET DATA
  /TYPE=TXT
  /FILE="/tmp/test.csv"
  /IMPORTCASES=ALL
  /ARRANGEMENT=DELIMITED
  /DELCASE=LINE
  /FIRSTCASE=2
  /DELIMITERS=","
  /VARIABLES=
   V1 F20.14
   V2 F20.14
   V3 F20.14
   V4 F20.14
   V5 F20.14
   V6 F20.14
   V7 F20.14
   V8 F20.14
   V9 F20.14
   V10 F20.14.

SAVE OUTFILE="/tmp/test.sav".

2-compar_pkg.R

library(foreign)
library(haven)
library(rbenchmark)

sav_file <- "/tmp/test.sav"
dta_file <- "/tmp/test.dta"

read_sav_foreign <- function(file)
    read.spss(file, to.data.frame = TRUE) 

read_sav_haven <- function(file)
    read_sav(file) 

read_dta_foreign <- function(file)
    read.dta(file) 

read_dta_haven <- function(file)
    read_dta(file) 

benchmark(read_sav_foreign(sav_file),
          read_sav_haven(sav_file),
          replications = 10,
          order = "elapsed",
          columns = c("test", "replications", "elapsed", "relative"))
##                         test replications elapsed relative
## 1 read_sav_foreign(sav_file)           10  21.760    1.000
## 2   read_sav_haven(sav_file)           10  73.854    3.394



benchmark(read_dta_foreign(dta_file),
          read_dta_haven(dta_file),
          replications = 10,
          order = "elapsed",
          columns = c("test", "replications", "elapsed", "relative"))
##                         test replications elapsed relative
## 1 read_dta_foreign(dta_file)           10  63.895     1.00
## 2   read_dta_haven(dta_file)           10 152.705     2.39