Write.spss: Write and SPSS file

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Usage

Write.spss(dataframe, file, ...)

Arguments

dataframe
file
...

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (dataframe, file, ...) 
{
    require(foreign)
    dname <- deparse(substitute(dataframe))
    disp(dname)
    cls <- sapply(dataframe, class)
    for (nn in names(dataframe)[cls == "Date"]) {
        dataframe[[nn]] <- as.character(dataframe[[nn]], "%Y/%m/%d")
    }
    if (any(cls == "Date")) {
        cat("\nOpen .dta file in SPSS and convert following variables to dates\nwith yyyy/mm/dd format:\n")
        for (nn in names(dataframe)[cls == "Date"]) cat("       ", 
            nn, "\n")
    }
    for (nn in names(dataframe)[cls == "factor"]) {
        dataframe[[nn]] <- as.character(dataframe[[nn]])
    }
    if (missing(file)) 
        file <- paste(dname, ".dta", sep = "")
    else file <- sub("\.dta$|\.DTA$|$", ".dta", file)
    cat(paste("\nData saved in", file, "\n"))
    write.dta(dataframe, file, version = 7, ...)
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.