Rev 33 | Rev 5186 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
library(foreign)sample100 <- read.spss("sample100.sav",FALSE)summary(sample100)str(sample100)sample100 <- data.frame(sample100)summary(sample100)sample100 <- read.spss("sample100.por",FALSE)summary(sample100)str(sample100)sample100 <- data.frame(sample100)summary(sample100)pbc <- read.spss("pbc.sav",FALSE)summary(pbc)str(pbc)pbc <- data.frame(pbc)summary(pbc)pbc <- read.spss("pbcold.sav",FALSE)summary(pbc)str(pbc)pbc <- data.frame(pbc)summary(pbc)pbc <- read.spss("pbc.por",FALSE)summary(pbc)str(pbc)pbc <- data.frame(pbc)summary(pbc)electric<-read.spss("electric.sav",TRUE,TRUE)summary(electric)electric<-read.spss("electric.por",TRUE,TRUE)summary(electric)electric<-read.spss("electric.sav",TRUE,TRUE,max.value.labels=4)summary(electric)q()