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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
|
R Under development (unstable) (2026-01-18 r89306) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(foreign)
>
> sample100 <- read.spss("sample100.sav",FALSE)
> summary(sample100)
Length Class Mode
YEAR 100 -none- numeric
DISTRICT 100 -none- numeric
CAMPUS 100 -none- numeric
DNAME 100 -none- character
CNAME 100 -none- character
SEX 100 -none- character
DISADVG 100 -none- character
ETHNICTY 100 -none- character
STUID 100 -none- character
TLIMTH 100 -none- numeric
GRADE 100 -none- numeric
> str(sample100)
List of 11
$ YEAR : num [1:100] 99 94 94 95 96 97 98 99 94 95 ...
$ DISTRICT: num [1:100] 57914 57914 57914 57914 57914 ...
$ CAMPUS : num [1:100] 57914045 57914106 57914110 57914123 57914117 ...
$ DNAME : chr [1:100] "MESQUITE ISD " "MESQUITE ISD " "MESQUITE ISD " "MESQUITE ISD " ...
$ CNAME : chr [1:100] "A C NEW MIDDLE " "MCWHORTER EL " "RUTHERFORD EL " "JOEY M PIRRUNG " ...
$ SEX : chr [1:100] "F" "F" " " "F" ...
$ DISADVG : chr [1:100] "NO " "NO " " " "NO " ...
$ ETHNICTY: chr [1:100] "WHITE " "WHITE " " " "HISPANIC" ...
$ STUID : chr [1:100] "00614371S" "00614372S" "00614373S" "00614373S" ...
$ TLIMTH : num [1:100] 90 86 67 77 77 79 86 87 89 85 ...
$ GRADE : num [1:100] 8 3 3 4 5 6 7 8 3 4 ...
- attr(*, "label.table")=List of 11
..$ YEAR : NULL
..$ DISTRICT: NULL
..$ CAMPUS : NULL
..$ DNAME : NULL
..$ CNAME : NULL
..$ SEX : NULL
..$ DISADVG : NULL
..$ ETHNICTY: NULL
..$ STUID : NULL
..$ TLIMTH : NULL
..$ GRADE : NULL
- attr(*, "variable.labels")= Named chr [1:11] "YEAR OF ADMINISTRATION" "COUNTY DISTRICT NUMBER" "COUNTY DISTRICT CAMPUS NUMBER" "DISTRICT NAME" ...
..- attr(*, "names")= chr [1:11] "YEAR" "DISTRICT" "CAMPUS" "DNAME" ...
> d.sample100 <- data.frame(sample100,stringsAsFactors=TRUE)
> summary(d.sample100)
YEAR DISTRICT CAMPUS DNAME
Min. : 94.0 Min. : 57905 Min. : 57905126 DALLAS ISD : 1
1st Qu.: 95.0 1st Qu.: 57914 1st Qu.: 57914046 HARMONY ISD : 1
Median : 96.0 Median : 57914 Median : 57914112 MESQUITE ISD :96
Mean : 115.4 Mean : 59644 Mean : 59644015 SUNNYVALE ISD : 2
3rd Qu.: 98.0 3rd Qu.: 57914 3rd Qu.: 57914125
Max. :2000.0 Max. :230905 Max. :230905101
CNAME SEX DISADVG ETHNICTY STUID
J C AUSTIN EL :23 : 4 : 4 : 4 00614373S: 6
R S KIMBROUGH M:12 F:62 NO :90 HISPANIC: 3 00614378S: 6
WILKINSON MIDDL: 9 M:34 YES: 6 OTHER : 2 00614379S: 6
VERNON PRICE EL: 7 WHITE :91 00614389S: 6
TISINGER EL : 6 00614397S: 6
THOMPSON EL : 5 00614403S: 6
(Other) :38 (Other) :64
TLIMTH GRADE
Min. :54.00 Min. :3.00
1st Qu.:74.00 1st Qu.:4.00
Median :84.00 Median :5.00
Mean :80.16 Mean :5.37
3rd Qu.:87.00 3rd Qu.:7.00
Max. :93.00 Max. :8.00
> s100 <- sample100
> sample100 <- read.spss("sample100.por",FALSE)
> stopifnot(identical(s100, sample100)) # no need for further summary() etc
>
> pbc <- read.spss("pbc.sav",FALSE)
> summary(pbc)
Length Class Mode
AGE 418 -none- numeric
ALB 418 -none- numeric
ALKPHOS 418 -none- numeric
ASCITES 418 -none- numeric
BILI 418 -none- numeric
CHOL 418 -none- numeric
EDEMA 418 -none- numeric
EDTRT 418 -none- numeric
HEPMEG 418 -none- numeric
TIME 418 -none- numeric
PLATELET 418 -none- numeric
PROTIME 418 -none- numeric
SEX 418 -none- numeric
SGOT 418 -none- numeric
SPIDERS 418 -none- numeric
STAGE 418 -none- numeric
STATUS 418 -none- numeric
TRT 418 -none- numeric
TRIG 418 -none- numeric
COPPER 418 -none- numeric
> str(pbc)
List of 20
$ AGE : num [1:418] 58.8 56.4 70.1 54.7 38.1 ...
$ ALB : num [1:418] 2.6 4.14 3.48 2.54 3.53 3.98 4.09 4 3.08 2.74 ...
$ ALKPHOS : num [1:418] 1718 7395 516 6122 671 ...
$ ASCITES : num [1:418] 1 0 0 0 0 0 0 0 0 1 ...
$ BILI : num [1:418] 14.5 1.1 1.4 1.8 3.4 0.8 1 0.3 3.2 12.6 ...
$ CHOL : num [1:418] 261 302 176 244 279 248 322 280 562 200 ...
$ EDEMA : num [1:418] 1 0 1 1 0 0 0 0 0 1 ...
$ EDTRT : num [1:418] 1 0 0.5 0.5 0 0 0 0 0 1 ...
$ HEPMEG : num [1:418] 1 1 0 1 1 1 1 0 0 0 ...
$ TIME : num [1:418] 400 4500 1012 1925 1504 ...
$ PLATELET: num [1:418] 190 221 151 183 136 -9 204 373 251 302 ...
$ PROTIME : num [1:418] 12.2 10.6 12 10.3 10.9 11 9.7 11 11 11.5 ...
$ SEX : num [1:418] 1 1 0 1 1 1 1 1 1 1 ...
$ SGOT : num [1:418] 137.9 113.5 96.1 60.6 113.2 ...
$ SPIDERS : num [1:418] 1 1 0 1 1 0 0 0 1 1 ...
$ STAGE : num [1:418] 4 3 4 4 3 3 3 3 2 4 ...
$ STATUS : num [1:418] 1 0 1 1 0 1 0 1 1 1 ...
$ TRT : num [1:418] 1 1 1 1 2 2 2 2 1 2 ...
$ TRIG : num [1:418] 172 88 55 92 72 63 213 189 88 143 ...
$ COPPER : num [1:418] 156 54 210 64 143 50 52 52 79 140 ...
- attr(*, "label.table")=List of 20
..$ AGE : NULL
..$ ALB : NULL
..$ ALKPHOS : NULL
..$ ASCITES : NULL
..$ BILI : NULL
..$ CHOL : NULL
..$ EDEMA : NULL
..$ EDTRT : NULL
..$ HEPMEG : NULL
..$ TIME : NULL
..$ PLATELET: NULL
..$ PROTIME : NULL
..$ SEX : NULL
..$ SGOT : NULL
..$ SPIDERS : NULL
..$ STAGE : NULL
..$ STATUS : NULL
..$ TRT : NULL
..$ TRIG : NULL
..$ COPPER : NULL
> d.pbc <- data.frame(pbc)
> summary(d.pbc)
AGE ALB ALKPHOS ASCITES
Min. :26.28 Min. :1.960 Min. : -9 Min. :-9.000
1st Qu.:42.83 1st Qu.:3.243 1st Qu.: -9 1st Qu.:-9.000
Median :51.00 Median :3.530 Median : 1009 Median : 0.000
Mean :50.74 Mean :3.497 Mean : 1478 Mean :-2.225
3rd Qu.:58.24 3rd Qu.:3.770 3rd Qu.: 1708 3rd Qu.: 0.000
Max. :78.44 Max. :4.640 Max. :13862 Max. : 1.000
BILI CHOL EDEMA EDTRT
Min. : 0.300 Min. : -9.0 Min. :0.0000 Min. :0.0000
1st Qu.: 0.800 1st Qu.: -9.0 1st Qu.:0.0000 1st Qu.:0.0000
Median : 1.400 Median : 252.5 Median :0.0000 Median :0.0000
Mean : 3.221 Mean : 248.2 Mean :0.1196 Mean :0.1005
3rd Qu.: 3.400 3rd Qu.: 347.8 3rd Qu.:0.0000 3rd Qu.:0.0000
Max. :28.000 Max. :1775.0 Max. :1.0000 Max. :1.0000
HEPMEG TIME PLATELET PROTIME SEX
Min. :-9.0 Min. : 41 Min. : -9.0 Min. : 9.00 Min. :-9.000
1st Qu.:-9.0 1st Qu.:1093 1st Qu.:181.0 1st Qu.:10.00 1st Qu.:-9.000
Median : 0.0 Median :1730 Median :248.0 Median :10.60 Median : 1.000
Mean :-1.9 Mean :1918 Mean :250.0 Mean :10.73 Mean :-1.622
3rd Qu.: 1.0 3rd Qu.:2614 3rd Qu.:315.5 3rd Qu.:11.10 3rd Qu.: 1.000
Max. : 1.0 Max. :4795 Max. :721.0 Max. :18.00 Max. : 1.000
SGOT SPIDERS STAGE STATUS
Min. : -9.00 Min. :-9.000 Min. :-9.00000 Min. :0.0000
1st Qu.: -9.00 1st Qu.:-9.000 1st Qu.:-9.00000 1st Qu.:0.0000
Median : 90.45 Median : 0.000 Median : 3.00000 Median :0.0000
Mean : 89.20 Mean :-2.067 Mean :-0.01914 Mean :0.3852
3rd Qu.:135.75 3rd Qu.: 0.000 3rd Qu.: 4.00000 3rd Qu.:1.0000
Max. :457.25 Max. : 1.000 Max. : 4.00000 Max. :1.0000
TRT TRIG COPPER
Min. :-9.000 Min. : -9.0 Min. : -9.00
1st Qu.:-9.000 1st Qu.: -9.0 1st Qu.: -9.00
Median : 1.000 Median : 85.0 Median : 50.50
Mean :-1.167 Mean : 81.2 Mean : 70.09
3rd Qu.: 2.000 3rd Qu.:127.8 3rd Qu.:100.75
Max. : 2.000 Max. :598.0 Max. :588.00
> pbco <- read.spss("pbcold.sav",FALSE)
> stopifnot(identical(pbc, pbco))
> ## summary(pbco)
> ## str(pbco)
> ## d.pbco <- data.frame(pbco)
> ## summary(d.pbco)
> pbc. <- read.spss("pbc.por",FALSE)
> summary(pbc.)
Length Class Mode
AGE 418 -none- numeric
ALB 418 -none- numeric
ALKPHOS 418 -none- numeric
ASCITES 418 -none- numeric
BILI 418 -none- numeric
CHOL 418 -none- numeric
EDEMA 418 -none- numeric
EDTRT 418 -none- numeric
HEPMEG 418 -none- numeric
TIME 418 -none- numeric
PLATELET 418 -none- numeric
PROTIME 418 -none- numeric
SEX 418 -none- numeric
SGOT 418 -none- numeric
SPIDERS 418 -none- numeric
STAGE 418 -none- numeric
STATUS 418 -none- numeric
TRT 418 -none- numeric
TRIG 418 -none- numeric
COPPER 418 -none- numeric
> str(pbc.) # has variable.labels
List of 20
$ AGE : num [1:418] 58.8 56.4 70.1 54.7 38.1 ...
$ ALB : num [1:418] 2.6 4.14 3.48 2.54 3.53 3.98 4.09 4 3.08 2.74 ...
$ ALKPHOS : num [1:418] 1718 7395 516 6122 671 ...
$ ASCITES : num [1:418] 1 0 0 0 0 0 0 0 0 1 ...
$ BILI : num [1:418] 14.5 1.1 1.4 1.8 3.4 0.8 1 0.3 3.2 12.6 ...
$ CHOL : num [1:418] 261 302 176 244 279 248 322 280 562 200 ...
$ EDEMA : num [1:418] 1 0 1 1 0 0 0 0 0 1 ...
$ EDTRT : num [1:418] 1 0 0.5 0.5 0 0 0 0 0 1 ...
$ HEPMEG : num [1:418] 1 1 0 1 1 1 1 0 0 0 ...
$ TIME : num [1:418] 400 4500 1012 1925 1504 ...
$ PLATELET: num [1:418] 190 221 151 183 136 -9 204 373 251 302 ...
$ PROTIME : num [1:418] 12.2 10.6 12 10.3 10.9 11 9.7 11 11 11.5 ...
$ SEX : num [1:418] 1 1 0 1 1 1 1 1 1 1 ...
$ SGOT : num [1:418] 137.9 113.5 96.1 60.6 113.2 ...
$ SPIDERS : num [1:418] 1 1 0 1 1 0 0 0 1 1 ...
$ STAGE : num [1:418] 4 3 4 4 3 3 3 3 2 4 ...
$ STATUS : num [1:418] 1 0 1 1 0 1 0 1 1 1 ...
$ TRT : num [1:418] 1 1 1 1 2 2 2 2 1 2 ...
$ TRIG : num [1:418] 172 88 55 92 72 63 213 189 88 143 ...
$ COPPER : num [1:418] 156 54 210 64 143 50 52 52 79 140 ...
- attr(*, "label.table")=List of 20
..$ AGE : NULL
..$ ALB : NULL
..$ ALKPHOS : NULL
..$ ASCITES : NULL
..$ BILI : NULL
..$ CHOL : NULL
..$ EDEMA : NULL
..$ EDTRT : NULL
..$ HEPMEG : NULL
..$ TIME : NULL
..$ PLATELET: NULL
..$ PROTIME : NULL
..$ SEX : NULL
..$ SGOT : NULL
..$ SPIDERS : NULL
..$ STAGE : NULL
..$ STATUS : NULL
..$ TRT : NULL
..$ TRIG : NULL
..$ COPPER : NULL
- attr(*, "variable.labels")= Named chr [1:20] " " " " " " " " ...
..- attr(*, "names")= chr [1:20] "AGE" "ALB" "ALKPHOS" "ASCITES" ...
> stopifnot(all.equal(d.pbc, data.frame(pbc.), tolerance = 1e-15))
>
> electric.s <- read.spss(system.file("files", "electric.sav", package = "foreign"), TRUE, TRUE)
> electric.p <- read.spss("electric.por",TRUE,TRUE)
> electric.s4 <- read.spss(system.file("files", "electric.sav", package = "foreign"), TRUE, TRUE, max.value.labels = 4)
> smmry <- summary(electric.s)
> if (getRversion() < "4.6.0") # "backport" NA's -> NAs to match reference output
+ smmry <- sub("NA's", "NAs ", smmry, fixed = TRUE)
> smmry
CASEID FIRSTCHD AGE DBP58
Min. : 1.00 NO CHD :120 Min. :40.0 Min. : 65.00
1st Qu.: 73.75 SUDDEN DEATH: 36 1st Qu.:45.0 1st Qu.: 80.00
Median : 144.50 NONFATALMI : 72 Median :48.0 Median : 87.00
Mean : 572.94 FATAL MI : 9 Mean :47.8 Mean : 88.79
3rd Qu.:1042.25 OTHER CHD : 3 3rd Qu.:51.0 3rd Qu.: 96.50
Max. :2098.00 Max. :54.0 Max. :160.00
NAs :1
EDUYR CHOL58 CGT58 HT58
Min. : 6.00 Min. :106.0 Min. : 0.00 Min. :60.90
1st Qu.: 9.75 1st Qu.:228.8 1st Qu.: 0.00 1st Qu.:66.50
Median :12.00 Median :261.0 Median :10.00 Median :68.15
Mean :11.66 Mean :264.1 Mean :11.58 Mean :68.51
3rd Qu.:14.00 3rd Qu.:293.2 3rd Qu.:20.00 3rd Qu.:70.20
Max. :18.00 Max. :515.0 Max. :60.00 Max. :77.00
NAs :28 NAs :1
WT58 DAYOFWK VITAL10 FAMHXCVR CHD
Min. :123.0 SUNDAY : 19 ALIVE:179 NO :178 Min. :0.0
1st Qu.:156.0 TUESDAY : 19 DEAD : 61 YES: 62 1st Qu.:0.0
Median :171.0 WEDNSDAY: 17 Median :0.5
Mean :173.4 SATURDAY: 16 Mean :0.5
3rd Qu.:187.0 THURSDAY: 15 3rd Qu.:1.0
Max. :278.0 (Other) : 24 Max. :1.0
NAs :130
> ii <- c(2,10)
> vl <- list(FIRSTCHD = c("OTHER CHD"= 6, "FATAL MI"= 5, "NONFATALMI"= 3,
+ "SUDDEN DEATH" = 2, "NO CHD" = 1),
+ DAYOFWK = c(SATURDAY=7, FRIDAY=6, THURSDAY=5,
+ WEDNSDAY=4, TUESDAY=3, MONDAY=2, SUNDAY=1))
> stopifnot(identical(electric.s, electric.p),
+ identical(electric.s[-ii], electric.s4[-ii]),
+ identical(vl, lapply(electric.s4[ii], attr, "value.labels")),
+ identical(lapply(vl, names),
+ lapply(electric.s[ii], function(.) rev(levels(.)))))
>
>
> ## after "long label patch":
> ## (from <https://stat.ethz.ch/pipermail/r-devel/2008-July/050165.html>)
>
> ##invisible(Sys.setlocale (locale="C")) ## to resolve locale problem # ??
> ldat <- read.spss("spss_long.sav", to.data.frame=TRUE)
> ldat
variable1 variable2
1 1 1
2 2 1
3 2 3
> nnms <- nms <- names(ldat)
> names(nnms) <- nms
> stopifnot(identical(nms, c("variable1", "variable2")),
+ identical(nnms, attr(ldat, "variable.labels")))
>
>
> ## some new arkward testcases for problems found in foreign <= 0.8-68 and duplicated value labels in general:
>
> ## Expect lots of warnings as value labels (corresponding to R factor labels) are uncomplete,
> ## and an unsupported long string variable is present in the data
>
> setwd(system.file("files", package = "foreign"))
> sav <- "testdata.sav"
>
> x.nodat <- read.spss(file=sav, to.data.frame = FALSE, reencode="UTF-8")
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Undeclared level(s) -1 added in variable: factor_numeric
3: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Duplicated levels in factor factor_n_duplicated: A
4: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Undeclared level(s) 2, 3, 4 added in variable: factor_n_undeclared
5: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Undeclared level(s) 0, 3 added in variable: factor_n_undeclared2
6: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Undeclared level(s) ä, ö added in variable: factor_s_duplicated
7: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Duplicated levels in factor factor_s_duplicated: A
8: In read.spss(file = sav, to.data.frame = FALSE, reencode = "UTF-8") :
Undeclared level(s) perhaps added in variable: factor_s_undeclared
> str(x.nodat)
List of 17
$ numeric : num [1:5] 1 2 3 NA 3
$ numeric_long_label : num [1:5] 1 2 3.33 4 NA
$ factor_numeric : Factor w/ 6 levels "-1","strongly disagree",..: 2 3 4 1 NA
$ factor_n_long_value_label: Factor w/ 2 levels "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnop",..: 1 2 NA 2 1
$ factor_n_coded_miss : Factor w/ 6 levels "strongly disagree",..: 1 2 6 5 NA
$ factor_n_duplicated : Factor w/ 3 levels "A","A_duplicated_2",..: 1 1 2 NA 3
$ factor_n_undeclared : Factor w/ 5 levels "strongly disagree",..: 1 2 4 3 1
$ factor_n_undeclared2 : Factor w/ 4 levels "0","yes","no",..: 1 4 NA 1 4
$ string : chr [1:5] "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum s"| __truncated__ "One morning, when Gregor Samsa woke from troubled dreams, he found himself transformed in his bed into a horrib"| __truncated__ " "| __truncated__ " "| __truncated__ ...
$ string_500 : chr [1:5] "A wonderful serenity has taken possession of my entire soul, like these sweet mornings of spring which I enjoy "| __truncated__ " "| __truncated__ "Far far away, behind the word mountains, far from the countries Vokalia and Consonantia, there live the blind t"| __truncated__ " "| __truncated__ ...
$ STRIN0 : chr [1:5] ", my dear friend, so absorbed in the exquisite sense of mere tranquil existence, that I neglect my talents. I s"| __truncated__ " "| __truncated__ "r place and supplies it with the necessary regelialia. It is a paradisematic country, in which roasted parts of"| __truncated__ " "| __truncated__ ...
$ string_miss : chr [1:5] "a " "c " "b " "g " ...
$ factor_s_coded_miss : Factor w/ 3 levels "female","male",..: 2 1 NA 2 3
$ factor_s_duplicated : Factor w/ 5 levels "A","A_duplicated_b",..: 1 5 4 NA NA
$ factor_s_undeclared : Factor w/ 3 levels "no","perhaps",..: 3 1 2 NA 3
$ factor_s_undeclared2 : Factor w/ 2 levels "no","yes": NA NA NA NA NA
$ date : num [1:5] 1.27e+10 1.37e+10 1.37e+10 NA NA
- attr(*, "label.table")=List of 17
..$ numeric : NULL
..$ numeric_long_label : NULL
..$ factor_numeric : Named chr [1:5] "5" "4" "3" "2" ...
.. ..- attr(*, "names")= chr [1:5] "strongly agree" "agree" "neither agree nor disagree" "disagree" ...
..$ factor_n_long_value_label: Named chr [1:2] "2" "1"
.. ..- attr(*, "names")= chr [1:2] "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ! \" # $ % & ' ( ) * + , - . / : ; < = > ? @ [ \\ ] ^ _ ` { | } ~ €" "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnop"
..$ factor_n_coded_miss : Named chr [1:6] "99" "5" "4" "3" ...
.. ..- attr(*, "names")= chr [1:6] "no answer" "strongly agree" "agree" "neither agree nor disagree" ...
..$ factor_n_duplicated : Named chr [1:3] "3" "2" "1"
.. ..- attr(*, "names")= chr [1:3] "B" "A" "A"
..$ factor_n_undeclared : Named chr [1:2] "5" "1"
.. ..- attr(*, "names")= chr [1:2] "strongly agree" "strongly disagree"
..$ factor_n_undeclared2 : Named chr [1:2] "2" "1"
.. ..- attr(*, "names")= chr [1:2] "no" "yes"
..$ string : NULL
..$ string_500 : NULL
..$ STRIN0 : NULL
..$ string_miss : NULL
..$ factor_s_coded_miss : Named chr [1:3] "u " "m " "f "
.. ..- attr(*, "names")= chr [1:3] "unknown" "male" "female"
..$ factor_s_duplicated : Named chr [1:3] "c " "b " "a "
.. ..- attr(*, "names")= chr [1:3] "C" "A" "A"
..$ factor_s_undeclared : Named chr [1:2] "y " "n "
.. ..- attr(*, "names")= chr [1:2] "yes" "no"
..$ factor_s_undeclared2 : Named chr [1:2] "y " "n "
.. ..- attr(*, "names")= chr [1:2] "yes" "no"
..$ date : NULL
- attr(*, "variable.labels")= Named chr [1:17] "numeric variable" "numeric variable with long label: this variable hat five observations (one is missing). All values between 1 an"| __truncated__ "numeric factor with missing range" "numeric factor with long value labels" ...
..- attr(*, "names")= chr [1:17] "numeric" "numeric_long_label" "factor_numeric" "factor_n_long_value_label" ...
- attr(*, "missings")=List of 17
..$ numeric :List of 1
.. ..$ type: chr "none"
..$ numeric_long_label :List of 2
.. ..$ type : chr "range"
.. ..$ value: num [1:2] 1 2
..$ factor_numeric :List of 2
.. ..$ type : chr "range"
.. ..$ value: num [1:2] -1 0
..$ factor_n_long_value_label:List of 1
.. ..$ type: chr "none"
..$ factor_n_coded_miss :List of 2
.. ..$ type : chr "one"
.. ..$ value: num 99
..$ factor_n_duplicated :List of 1
.. ..$ type: chr "none"
..$ factor_n_undeclared :List of 1
.. ..$ type: chr "none"
..$ factor_n_undeclared2 :List of 1
.. ..$ type: chr "none"
..$ string :List of 1
.. ..$ type: chr "none"
..$ string_500 :List of 1
.. ..$ type: chr "none"
..$ STRIN0 :List of 1
.. ..$ type: chr "none"
..$ string_miss :List of 2
.. ..$ type : chr "two"
.. ..$ value: chr [1:2] "a b " "b "
..$ factor_s_coded_miss :List of 2
.. ..$ type : chr "three"
.. ..$ value: chr [1:3] "u v w \b" "v w \b" "w \b"
..$ factor_s_duplicated :List of 1
.. ..$ type: chr "none"
..$ factor_s_undeclared :List of 1
.. ..$ type: chr "none"
..$ factor_s_undeclared2 :List of 1
.. ..$ type: chr "none"
..$ date :List of 1
.. ..$ type: chr "none"
- attr(*, "codepage")= int 65001
>
> x.sort <- read.spss(file=sav, to.data.frame = TRUE, reencode="UTF-8",
+ stringsAsFactors=TRUE)
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
Duplicated levels in factor factor_n_duplicated: A
3: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
Undeclared level(s) 2, 3, 4 added in variable: factor_n_undeclared
4: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
Undeclared level(s) 0, 3 added in variable: factor_n_undeclared2
5: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
Undeclared level(s) ä, ö added in variable: factor_s_duplicated
6: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
Duplicated levels in factor factor_s_duplicated: A
7: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8", :
Undeclared level(s) perhaps added in variable: factor_s_undeclared
> str(x.sort)
'data.frame': 5 obs. of 17 variables:
$ numeric : num 1 2 3 NA 3
$ numeric_long_label : num NA NA 3.33 4 NA
$ factor_numeric : Factor w/ 5 levels "strongly disagree",..: 1 2 3 NA NA
$ factor_n_long_value_label: Factor w/ 2 levels "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnop",..: 1 2 NA 2 1
$ factor_n_coded_miss : Factor w/ 5 levels "strongly disagree",..: 1 2 NA 5 NA
$ factor_n_duplicated : Factor w/ 3 levels "A","A_duplicated_2",..: 1 1 2 NA 3
$ factor_n_undeclared : Factor w/ 5 levels "strongly disagree",..: 1 2 4 3 1
$ factor_n_undeclared2 : Factor w/ 4 levels "0","yes","no",..: 1 4 NA 1 4
$ string : Factor w/ 4 levels " "| __truncated__,..: 3 4 1 1 2
$ string_500 : Factor w/ 4 levels " "| __truncated__,..: 2 1 3 1 4
$ STRIN0 : Factor w/ 4 levels " "| __truncated__,..: 2 1 4 1 3
$ string_miss : Factor w/ 4 levels " ","a ",..: 2 3 NA 4 1
$ factor_s_coded_miss : Factor w/ 3 levels "female","male",..: 2 1 NA 2 3
$ factor_s_duplicated : Factor w/ 5 levels "A","A_duplicated_b",..: 1 5 4 NA NA
$ factor_s_undeclared : Factor w/ 3 levels "no","perhaps",..: 3 1 2 NA 3
$ factor_s_undeclared2 : Factor w/ 2 levels "no","yes": NA NA NA NA NA
$ date : num 1.27e+10 1.37e+10 1.37e+10 NA NA
- attr(*, "variable.labels")= Named chr [1:17] "numeric variable" "numeric variable with long label: this variable hat five observations (one is missing). All values between 1 an"| __truncated__ "numeric factor with missing range" "numeric factor with long value labels" ...
..- attr(*, "names")= chr [1:17] "numeric" "numeric_long_label" "factor_numeric" "factor_n_long_value_label" ...
- attr(*, "codepage")= int 65001
> x.append <- read.spss(file=sav, to.data.frame = TRUE,
+ add.undeclared.levels = "append", reencode="UTF-8")
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
Duplicated levels in factor factor_n_duplicated: A
3: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
Undeclared level(s) 2, 3, 4 added in variable: factor_n_undeclared
4: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
Undeclared level(s) 0, 3 added in variable: factor_n_undeclared2
5: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
Undeclared level(s) ä, ö added in variable: factor_s_duplicated
6: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
Duplicated levels in factor factor_s_duplicated: A
7: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "append", :
Undeclared level(s) perhaps added in variable: factor_s_undeclared
> x.no <- read.spss(file=sav, to.data.frame = TRUE,
+ add.undeclared.levels = "no", reencode="UTF-8")
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "no", :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = TRUE, add.undeclared.levels = "no", :
Duplicated levels in factor factor_n_duplicated: A
>
> levels(x.sort$factor_n_undeclared)
[1] "strongly disagree" "2" "3"
[4] "4" "strongly agree"
> levels(x.append$factor_n_undeclared)
[1] "strongly disagree" "strongly agree" "2"
[4] "3" "4"
> str(x.no$factor_n_undeclared)
num [1:5] 1 2 4 3 1
- attr(*, "value.labels")= Named chr [1:2] "5" "1"
..- attr(*, "names")= chr [1:2] "strongly agree" "strongly disagree"
>
>
> ### Examples for duplicated.value.labels:
> ## duplicated.value.labels = "append" (default)
> x.append <- read.spss(file=sav, to.data.frame=TRUE, reencode="UTF-8")
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
Duplicated levels in factor factor_n_duplicated: A
3: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
Undeclared level(s) 2, 3, 4 added in variable: factor_n_undeclared
4: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
Undeclared level(s) 0, 3 added in variable: factor_n_undeclared2
5: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
Undeclared level(s) ä, ö added in variable: factor_s_duplicated
6: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
Duplicated levels in factor factor_s_duplicated: A
7: In read.spss(file = sav, to.data.frame = TRUE, reencode = "UTF-8") :
Undeclared level(s) perhaps added in variable: factor_s_undeclared
> ## duplicated.value.labels = "condense"
> x.condense <- read.spss(file=sav, to.data.frame=TRUE,
+ duplicated.value.labels = "condense", reencode="UTF-8")
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
Duplicated levels in factor factor_n_duplicated: A
3: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
Undeclared level(s) 2, 3, 4 added in variable: factor_n_undeclared
4: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
Undeclared level(s) 0, 3 added in variable: factor_n_undeclared2
5: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
Undeclared level(s) ä, ö added in variable: factor_s_duplicated
6: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
Duplicated levels in factor factor_s_duplicated: A
7: In read.spss(file = sav, to.data.frame = TRUE, duplicated.value.labels = "condense", :
Undeclared level(s) perhaps added in variable: factor_s_undeclared
>
> levels(x.append$factor_n_duplicated)
[1] "A" "A_duplicated_2" "B"
> levels(x.condense$factor_n_duplicated)
[1] "A" "B"
>
> as.numeric(x.append$factor_n_duplicated)
[1] 1 1 2 NA 3
> as.numeric(x.condense$factor_n_duplicated)
[1] 1 1 1 NA 2
>
> ### ToDo:
> ## Long Strings (>255 chars) are imported in consecutive separate variables
> ## (see warning about subtype 14)
> ## we should get that right in the import function in future versions
> x <- read.spss(file=sav, to.data.frame=TRUE, stringsAsFactors=FALSE, reencode="UTF-8")
re-encoding from UTF-8
Warning messages:
1: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
testdata.sav: Very long string record(s) found (record type 7, subtype 14), each will be imported in consecutive separate variables
2: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
Duplicated levels in factor factor_n_duplicated: A
3: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
Undeclared level(s) 2, 3, 4 added in variable: factor_n_undeclared
4: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
Undeclared level(s) 0, 3 added in variable: factor_n_undeclared2
5: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
Undeclared level(s) ä, ö added in variable: factor_s_duplicated
6: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
Duplicated levels in factor factor_s_duplicated: A
7: In read.spss(file = sav, to.data.frame = TRUE, stringsAsFactors = FALSE, :
Undeclared level(s) perhaps added in variable: factor_s_undeclared
>
> cat.long.string <- function(x, w=70) cat(paste(strwrap(x, width=w), "\n"))
>
> ## first part: x$string_500:
> cat.long.string(x$string_500)
A wonderful serenity has taken possession of my entire soul, like
these sweet mornings of spring which I enjoy with my whole heart. I
am alone, and feel the charm of existence in this spot, which was
created for the bliss of souls like mine. I am so happy
Far far away, behind the word mountains, far from the countries
Vokalia and Consonantia, there live the blind texts. Separated they
live in Bookmarksgrove right at the coast of the Semantics, a large
language ocean. A small river named Duden flows by thei
abc def ghi jkl mno pqrs tuv wxyz ABC DEF GHI JKL MNO PQRS TUV WXYZ
!"§ $%& /() =?* '<> #|; ²³~ @`´ ©«» ¤¼× {} abc def ghi jkl mno pqrs
tuv wxyz ABC DEF GHI JKL MNO PQRS TUV WXYZ !"§ $%& /() =?* '<> #|;
²³~ @`´ ©«» ¤¼× {} abc def ghi j
> ## second part: x$STRIN0:
> cat.long.string(x$STRIN0)
, my dear friend, so absorbed in the exquisite sense of mere tranquil
existence, that I neglect my talents. I should be incapable of
drawing a single stroke at the present moment; and yet I feel that I
never was a greater artist than now.
r place and supplies it with the necessary regelialia. It is a
paradisematic country, in which roasted parts of sentences fly into
your mouth.
kl mno pqrs tuv wxyz ABC DEF GHI JKL MNO PQRS TUV WXYZ !"§ $%& /()
=?* '<> #|; ²³~ @`´ ©«» ¤¼× {} abc def ghi jkl mno pqrs tuv wxyz ABC
DEF GHI JKL MNO PQRS TUV WXYZ !"§ $%& /() =?* '<> #|; ²³~ @`´ ©«» ¤¼×
{} abc def ghi jkl
> ## complete long string:
> long.string <- apply(x[,c("string_500", "STRIN0")], 1, paste, collapse="")
> cat.long.string(long.string)
A wonderful serenity has taken possession of my entire soul, like
these sweet mornings of spring which I enjoy with my whole heart. I
am alone, and feel the charm of existence in this spot, which was
created for the bliss of souls like mine. I am so happy, my dear
friend, so absorbed in the exquisite sense of mere tranquil
existence, that I neglect my talents. I should be incapable of
drawing a single stroke at the present moment; and yet I feel that I
never was a greater artist than now.
Far far away, behind the word mountains, far from the countries
Vokalia and Consonantia, there live the blind texts. Separated they
live in Bookmarksgrove right at the coast of the Semantics, a large
language ocean. A small river named Duden flows by their place and
supplies it with the necessary regelialia. It is a paradisematic
country, in which roasted parts of sentences fly into your mouth.
abc def ghi jkl mno pqrs tuv wxyz ABC DEF GHI JKL MNO PQRS TUV WXYZ
!"§ $%& /() =?* '<> #|; ²³~ @`´ ©«» ¤¼× {} abc def ghi jkl mno pqrs
tuv wxyz ABC DEF GHI JKL MNO PQRS TUV WXYZ !"§ $%& /() =?* '<> #|;
²³~ @`´ ©«» ¤¼× {} abc def ghi jkl mno pqrs tuv wxyz ABC DEF GHI JKL
MNO PQRS TUV WXYZ !"§ $%& /() =?* '<> #|; ²³~ @`´ ©«» ¤¼× {} abc def
ghi jkl mno pqrs tuv wxyz ABC DEF GHI JKL MNO PQRS TUV WXYZ !"§ $%&
/() =?* '<> #|; ²³~ @`´ ©«» ¤¼× {} abc def ghi jkl
>
> proc.time()
user system elapsed
0.181 0.041 0.213
|
