1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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()
|
