write.Hmisc.SPSS: Write an Hmisc data.frame with labels to SPSS

In mrdwab/SOfun: Functions From Answers to R Questions on Stack Overflow

Description

The Hmisc package lets you assign labels to data. This information is not included when using write.spss from the "foreign" package. This function tries to address that.

Usage

write.Hmisc.SPSS(data, datafile, codefile)

Arguments

data	The input data.frame
datafile	The name for the resulting SPSS data file
codefile	The name for the resulting SPSS code file

Value

Two files will be created in your working directory: a script file and a data file that can be used with SPSS

Author(s)

Ananda Mahto. Includes code from Chuck Cleland

References

http://stackoverflow.com/a/10261534/1270695

Examples

df <- data.frame(id = c(1:6),
                 p.code = c(1, 5, 4, NA, 0, 5),
                 p.label = c('Optometrists', 'Nurses',
                             'Financial analysts', '<NA>',
                             '0', 'Nurses'),
                 foo = LETTERS[1:6])
# Add some variable labels using label from the Hmisc package
library(Hmisc)
label(df) <- "Sweet sweet data"
label(df$id) <- "id blahblah"
label(df$p.label) <- "Profession with human readable information"
label(df$p.code) <- "Profession code"
label(df$foo) <- "Variable label for variable x.var"
# modify the name of one varibe to see what happens when exported
names(df)[4] <- "New crazy name for 'foo'"

df

x <- setwd(tempdir())
list.files()
write.Hmisc.SPSS(df, "df.sav", "df.sps")
cat(readLines("df.sav"), sep = "\n")
cat(readLines("df.sps"), sep = "\n")
file.remove("df.sav", "df.sps")
setwd(x)

mrdwab/SOfun documentation built on June 20, 2020, 6:15 p.m.