SPSS to R

A set of functions that takes SPSS syntax as input and outputs R commands to do the same analysis or data management tasks.

Current Features

• Aggregate
• Correlations
• Crosstab
• Sort Cases
• Descriptives
• One sample t-test
• Independent sample t-test
• Get for sav files

Upcoming Features

• Master SPSStoR function
• More Get commands to read in csv, txt, etc.
• Dataset commands
• Value Labels
• Further arguments for above current features
• Modeling functions
  • t-test (two sample with cut score and paired)
  • analysis of variance
  • regression
  • generalized models
• if else statements
• graphics

Installing Function

library(devtools)
install_github("SPSStoR", username = "lebebr01")
library(SPSStoR)

Aggregate to R Example

library(SPSStoR)
aggregate_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/aggregateExamp.txt", 
    syntax = "data.table")

##      [,1]                                                                                                                                           
## [1,] "\\#x is the name of your data frame"                                                                                                          
## [2,] "library(data.table)"                                                                                                                          
## [3,] "temp <- x[order(gender, marital), list(age_mean=mean(age), age_median=median(age), income_median=median(income)), by = list(gender, marital)]"

aggregate_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/aggregateExampNoBreak.txt", 
    syntax = "data.table")

##      [,1]                                                                                           
## [1,] "\\#x is the name of your data frame"                                                          
## [2,] "library(data.table)"                                                                          
## [3,] "temp <- x[, list(age_mean=mean(age), age_median=median(age), income_median=median(income)), ]"

aggregate_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/aggregateExampNoBreakNoOutfile.txt", 
    syntax = "data.table")

##      [,1]                                  
## [1,] "\\#x is the name of your data frame" 
## [2,] "library(data.table)"                 
## [3,] "x[, age_mean:=mean(age), ]"          
## [4,] "x[, age_median:=median(age), ]"      
## [5,] "x[, income_median:=median(income), ]"

aggregate_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/aggregateExampNoOutfile.txt", 
    syntax = "data.table")

##      [,1]                                                                                  
## [1,] "\\#x is the name of your data frame"                                                 
## [2,] "library(data.table)"                                                                 
## [3,] "x[order(gender, marital), age_mean:=mean(age), by = list(gender, marital)]"          
## [4,] "x[order(gender, marital), age_median:=median(age), by = list(gender, marital)]"      
## [5,] "x[order(gender, marital), income_median:=median(income), by = list(gender, marital)]"

Correlation to R Example

correlations_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/correlationsExamp.txt")

##      [,1]                                                         
## [1,] "\\#x is the name of your data frame"                        
## [2,] "with(x, cor(cbind(sales, mpg)),use = pairwise.complete.obs)"

Crosstab to R Example

crosstabs_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/crosstabExamp.txt")

##       [,1]                                                     
##  [1,] "\\#x is the name of your data frame"                    
##  [2,] "ctab(with(x, table(grade,M_part)), type = c('n','r'))"  
##  [3,] "ctab(with(x, table(race,M_part)), type = c('n','r'))"   
##  [4,] "ctab(with(x, table(lepflag,M_part)), type = c('n','r'))"
##  [5,] "ctab(with(x, table(FRL,M_part)), type = c('n','r'))"    
##  [6,] "ctab(with(x, table(SpEd,M_part)), type = c('n','r'))"   
##  [7,] "ctab(with(x, table(grade,R_part)), type = c('n','r'))"  
##  [8,] "ctab(with(x, table(race,R_part)), type = c('n','r'))"   
##  [9,] "ctab(with(x, table(lepflag,R_part)), type = c('n','r'))"
## [10,] "ctab(with(x, table(FRL,R_part)), type = c('n','r'))"    
## [11,] "ctab(with(x, table(SpEd,R_part)), type = c('n','r'))"

Sort Cases to R Example

sortcases_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/sortCasesExamp.txt")

##      [,1]                                    
## [1,] "\\#x is the name of your data frame"   
## [2,] "x <- x[order(DIVISION, STORE, -AGE), ]"

sortcases_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/sortCasesExamp2.txt")

##      [,1]                                 
## [1,] "\\#x is the name of your data frame"
## [2,] "x <- x[order(DIVISION, -STORE), ]"

Descriptives to R Example

descriptives_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/descriptivesExamp.txt")

##      [,1]                                                                                          
## [1,] "\\#x is the name of your data frame"                                                         
## [2,] "library(SPSStoR)"                                                                            
## [3,] "with(x, descmat(x = list(longmon, tollmon, equipmon, cardmon, wiremon), mean, sd, min, max))"

descriptives_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/descriptivesExampAll.txt")

##      [,1]                                                                                                                                       
## [1,] "\\#x is the name of your data frame"                                                                                                      
## [2,] "library(SPSStoR)"                                                                                                                         
## [3,] "library(e1071)"                                                                                                                           
## [4,] "with(x, descmat(x = list(longmon, tollmon, equipmon, cardmon, wiremon), mean, semean, sd, var, kurtosis, skewness, range, min, max, sum))"

One Sample T-test Example

ttest_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/ttestOneSampExamp.txt")

##      [,1]                                               
## [1,] "\\#x is the name of your data frame"              
## [2,] "with(x, t.test(brake, mu = 322, conf.level = .90)"

Indpendent Sample T-test Example

ttest_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/ttestTwoSampValExamp.txt")

##      [,1]                                                                            
## [1,] "\\#x is the name of your data frame"                                           
## [2,] "library(car)"                                                                  
## [3,] "leveneTest(dollars ~ insert, data = x)"                                        
## [4,] "t.test(dollars ~ insert, data = x, mu =0, conf.level = .95, var.equal = TRUE)" 
## [5,] "t.test(dollars ~ insert, data = x, mu =0, conf.level = .95, var.equal = FALSE)"

Get Command Example

get_to_r("C:/Users/e520062/Dropbox/SPSStoR/SPSSsyntax/getExamp.txt")

##      [,1]                                                       
## [1,] "\\#x is the name of your data frame"                      
## [2,] "library(foreign)"                                         
## [3,] "x <- read.spss('/data/hubtemp.sav', to.data.frame = TRUE)"