3
DF <- data.frame(X1 = 1:3, X2 = 4:6, X3 = paste0("str_", 1:3),
4
stringsAsFactors = FALSE)
6
write.foreign(DF, "datafile.dat", "codefile.sps", "SPSS")
8
files <- c( "datafile.dat", "codefile.sps")
9
for(f in files) tools::Rdiff(f, file.path("keep", f))