R Under development (unstable) (2020-03-24 r78051) -- "Unsuffered Consequences"
Copyright (C) 2020 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin19.3.0 (64-bit)
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)
> pc5 <- read.dta("pc5.dta")
Warning message:
In read.dta("pc5.dta") : cannot read factor labels from Stata 5 files
> summary(pc5)
age alb alkphos ascites
Min. :26.28 Min. :1.960 Min. : -9 Min. :-9.000
1st Qu.:42.71 1st Qu.:3.330 1st Qu.: 423 1st Qu.: 0.000
Median :50.47 Median :3.570 Median : 1009 Median : 0.000
Mean :50.45 Mean :3.543 Mean : 1525 Mean :-2.074
3rd Qu.:56.99 3rd Qu.:3.820 3rd Qu.: 1677 3rd Qu.: 0.000
Max. :78.44 Max. :4.640 Max. :13862 Max. : 1.000
bili chol edema edemarx
Min. : 0.300 Min. : -9.0 Min. :0.00000 Min. :0.00000
1st Qu.: 0.700 1st Qu.: -9.0 1st Qu.:0.00000 1st Qu.:0.00000
Median : 1.200 Median : 256.0 Median :0.00000 Median :0.00000
Mean : 2.688 Mean : 245.8 Mean :0.09256 Mean :0.07815
3rd Qu.: 3.000 3rd Qu.: 346.0 3rd Qu.:0.00000 3rd Qu.:0.00000
Max. :28.000 Max. :1775.0 Max. :1.00000 Max. :1.00000
hepmeg time plate protime sex
Min. :-9.00 Min. : 41 Min. : -9 Min. : 9.00 Min. :-9.000
1st Qu.: 0.00 1st Qu.:1434 1st Qu.:181 1st Qu.:10.00 1st Qu.: 0.000
Median : 0.00 Median :1487 Median :249 Median :10.60 Median : 1.000
Mean :-1.75 Mean :1760 Mean :252 Mean :10.67 Mean :-1.434
3rd Qu.: 1.00 3rd Qu.:2153 3rd Qu.:321 3rd Qu.:11.00 3rd Qu.: 1.000
Max. : 1.00 Max. :4795 Max. :721 Max. :18.00 Max. : 1.000
sgot spiders stage cens
Min. : -9.00 Min. :-9.000 Min. :-9.0000 Min. :0.0000
1st Qu.: 44.20 1st Qu.: 0.000 1st Qu.: 1.0000 1st Qu.:0.0000
Median : 88.35 Median : 0.000 Median : 3.0000 Median :0.0000
Mean : 88.22 Mean :-1.914 Mean : 0.1351 Mean :0.2443
3rd Qu.:130.20 3rd Qu.: 0.000 3rd Qu.: 3.0000 3rd Qu.:0.0000
Max. :457.25 Max. : 1.000 Max. : 4.0000 Max. :1.0000
rx trig copper id
Min. :-9.0000 Min. : -9.00 Min. : -9.00 Min. : 1.0
1st Qu.: 1.0000 1st Qu.: -9.00 1st Qu.: 10.00 1st Qu.: 99.5
Median : 1.0000 Median : 85.00 Median : 48.00 Median :195.0
Mean :-0.9788 Mean : 81.44 Mean : 65.26 Mean :199.6
3rd Qu.: 2.0000 3rd Qu.:126.00 3rd Qu.: 88.00 3rd Qu.:302.5
Max. : 2.0000 Max. :598.00 Max. :588.00 Max. :418.0
first late t0
Min. :0.0000 Min. :0.0000 Min. : 0.0
1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.: 0.0
Median :0.0000 Median :0.0000 Median : 0.0
Mean :0.3657 Mean :0.3657 Mean : 543.8
3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:1487.0
Max. :1.0000 Max. :1.0000 Max. :1487.0
> str(pc5)
'data.frame': 659 obs. of 24 variables:
$ age : num 58.8 56.4 56.4 70.1 54.7 ...
$ alb : num 2.6 4.14 4.14 3.48 2.54 ...
$ alkphos: num 1718 7395 7395 516 6122 ...
$ ascites: num 1 0 0 0 0 0 0 0 0 0 ...
$ bili : num 14.5 1.1 1.1 1.4 1.8 ...
$ chol : num 261 302 302 176 244 244 279 279 248 248 ...
$ edema : num 1 0 0 1 1 1 0 0 0 0 ...
$ edemarx: num 1 0 0 0.5 0.5 0.5 0 0 0 0 ...
$ hepmeg : num 1 1 1 0 1 1 1 1 1 1 ...
$ time : num 400 1487 4500 1012 1487 ...
$ plate : num 190 221 221 151 183 183 136 136 -9 -9 ...
$ protime: num 12.2 10.6 10.6 12 10.3 ...
$ sex : num 1 1 1 0 1 1 1 1 1 1 ...
$ sgot : num 137.9 113.5 113.5 96.1 60.6 ...
$ spiders: num 1 1 1 0 1 1 1 1 0 0 ...
$ stage : num 4 3 3 4 4 4 3 3 3 3 ...
$ cens : num 1 0 0 1 0 1 0 0 0 1 ...
$ rx : num 1 1 1 1 1 1 2 2 2 2 ...
$ trig : num 172 88 88 55 92 92 72 72 63 63 ...
$ copper : num 156 54 54 210 64 64 143 143 50 50 ...
$ id : num 1 2 2 3 4 4 5 5 6 6 ...
$ first : num 0 1 0 0 1 0 1 0 1 0 ...
$ late : num 0 0 1 0 0 1 0 1 0 1 ...
$ t0 : num 0 0 1487 0 0 ...
- attr(*, "datalabel")= chr ""
- attr(*, "time.stamp")= chr "14 Feb 1997 14:22"
- attr(*, "formats")= chr [1:24] "%9.0g" "%9.0g" "%9.0g" "%9.0g" ...
- attr(*, "types")= int [1:24] 102 102 102 102 102 102 102 102 102 102 ...
- attr(*, "val.labels")= chr [1:24] "" "" "" "" ...
- attr(*, "var.labels")= chr [1:24] "" "" "" "" ...
- attr(*, "version")= int 5
> compressed <- read.dta("compressed.dta")
> summary(compressed)
age alb alkphos ascites
Min. :26.28 Min. :1.960 Min. : -9 Min. :-9.000
1st Qu.:42.71 1st Qu.:3.330 1st Qu.: 423 1st Qu.: 0.000
Median :50.47 Median :3.570 Median : 1009 Median : 0.000
Mean :50.45 Mean :3.543 Mean : 1525 Mean :-2.074
3rd Qu.:56.99 3rd Qu.:3.820 3rd Qu.: 1677 3rd Qu.: 0.000
Max. :78.44 Max. :4.640 Max. :13862 Max. : 1.000
bili chol edema edemarx
Min. : 0.300 Min. : -9.0 Min. :0.00000 Min. :0.00000
1st Qu.: 0.700 1st Qu.: -9.0 1st Qu.:0.00000 1st Qu.:0.00000
Median : 1.200 Median : 256.0 Median :0.00000 Median :0.00000
Mean : 2.688 Mean : 245.8 Mean :0.09256 Mean :0.07815
3rd Qu.: 3.000 3rd Qu.: 346.0 3rd Qu.:0.00000 3rd Qu.:0.00000
Max. :28.000 Max. :1775.0 Max. :1.00000 Max. :1.00000
hepmeg time plate protime sex
Min. :-9.00 Min. : 41 Min. : -9 Min. : 9.00 Min. :-9.000
1st Qu.: 0.00 1st Qu.:1434 1st Qu.:181 1st Qu.:10.00 1st Qu.: 0.000
Median : 0.00 Median :1487 Median :249 Median :10.60 Median : 1.000
Mean :-1.75 Mean :1760 Mean :252 Mean :10.67 Mean :-1.434
3rd Qu.: 1.00 3rd Qu.:2153 3rd Qu.:321 3rd Qu.:11.00 3rd Qu.: 1.000
Max. : 1.00 Max. :4795 Max. :721 Max. :18.00 Max. : 1.000
sgot spiders stage cens
Min. : -9.00 Min. :-9.000 Min. :-9.0000 Min. :0.0000
1st Qu.: 44.20 1st Qu.: 0.000 1st Qu.: 1.0000 1st Qu.:0.0000
Median : 88.35 Median : 0.000 Median : 3.0000 Median :0.0000
Mean : 88.22 Mean :-1.914 Mean : 0.1351 Mean :0.2443
3rd Qu.:130.20 3rd Qu.: 0.000 3rd Qu.: 3.0000 3rd Qu.:0.0000
Max. :457.25 Max. : 1.000 Max. : 4.0000 Max. :1.0000
rx trig copper id
Min. :-9.0000 Min. : -9.00 Min. : -9.00 Min. : 1.0
1st Qu.: 1.0000 1st Qu.: -9.00 1st Qu.: 10.00 1st Qu.: 99.5
Median : 1.0000 Median : 85.00 Median : 48.00 Median :195.0
Mean :-0.9788 Mean : 81.44 Mean : 65.26 Mean :199.6
3rd Qu.: 2.0000 3rd Qu.:126.00 3rd Qu.: 88.00 3rd Qu.:302.5
Max. : 2.0000 Max. :598.00 Max. :588.00 Max. :418.0
first late t0
Min. :0.0000 Min. :0.0000 Min. : 0.0
1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.: 0.0
Median :0.0000 Median :0.0000 Median : 0.0
Mean :0.3657 Mean :0.3657 Mean : 543.8
3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:1487.0
Max. :1.0000 Max. :1.0000 Max. :1487.0
> all.equal(summary(pc5), summary(compressed))
[1] TRUE
> sun6 <- read.dta("sun6.dta")
> summary(sun6)
age alb alkphos ascites
Min. :26.28 Min. :1.960 Min. : -9 Min. :-9.000
1st Qu.:42.71 1st Qu.:3.330 1st Qu.: 423 1st Qu.: 0.000
Median :50.47 Median :3.570 Median : 1009 Median : 0.000
Mean :50.45 Mean :3.543 Mean : 1525 Mean :-2.074
3rd Qu.:56.99 3rd Qu.:3.820 3rd Qu.: 1677 3rd Qu.: 0.000
Max. :78.44 Max. :4.640 Max. :13862 Max. : 1.000
bili chol edema edemarx
Min. : 0.300 Min. : -9.0 Min. :0.00000 Min. :0.00000
1st Qu.: 0.700 1st Qu.: -9.0 1st Qu.:0.00000 1st Qu.:0.00000
Median : 1.200 Median : 256.0 Median :0.00000 Median :0.00000
Mean : 2.688 Mean : 245.8 Mean :0.09256 Mean :0.07815
3rd Qu.: 3.000 3rd Qu.: 346.0 3rd Qu.:0.00000 3rd Qu.:0.00000
Max. :28.000 Max. :1775.0 Max. :1.00000 Max. :1.00000
hepmeg time plate protime sex
Min. :-9.00 Min. : 41 Min. : -9 Min. : 9.00 Min. :-9.000
1st Qu.: 0.00 1st Qu.:1434 1st Qu.:181 1st Qu.:10.00 1st Qu.: 0.000
Median : 0.00 Median :1487 Median :249 Median :10.60 Median : 1.000
Mean :-1.75 Mean :1760 Mean :252 Mean :10.67 Mean :-1.434
3rd Qu.: 1.00 3rd Qu.:2153 3rd Qu.:321 3rd Qu.:11.00 3rd Qu.: 1.000
Max. : 1.00 Max. :4795 Max. :721 Max. :18.00 Max. : 1.000
sgot spiders stage cens
Min. : -9.00 Min. :-9.000 Min. :-9.0000 Min. :0.0000
1st Qu.: 44.20 1st Qu.: 0.000 1st Qu.: 1.0000 1st Qu.:0.0000
Median : 88.35 Median : 0.000 Median : 3.0000 Median :0.0000
Mean : 88.22 Mean :-1.914 Mean : 0.1351 Mean :0.2443
3rd Qu.:130.20 3rd Qu.: 0.000 3rd Qu.: 3.0000 3rd Qu.:0.0000
Max. :457.25 Max. : 1.000 Max. : 4.0000 Max. :1.0000
rx trig copper id
Min. :-9.0000 Min. : -9.00 Min. : -9.00 Min. : 1.0
1st Qu.: 1.0000 1st Qu.: -9.00 1st Qu.: 10.00 1st Qu.: 99.5
Median : 1.0000 Median : 85.00 Median : 48.00 Median :195.0
Mean :-0.9788 Mean : 81.44 Mean : 65.26 Mean :199.6
3rd Qu.: 2.0000 3rd Qu.:126.00 3rd Qu.: 88.00 3rd Qu.:302.5
Max. : 2.0000 Max. :598.00 Max. :588.00 Max. :418.0
first late t0
Min. :0.0000 Min. :0.0000 Min. : 0.0
1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.: 0.0
Median :0.0000 Median :0.0000 Median : 0.0
Mean :0.3657 Mean :0.3657 Mean : 543.8
3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:1487.0
Max. :1.0000 Max. :1.0000 Max. :1487.0
> str(sun6)
'data.frame': 659 obs. of 24 variables:
$ age : num 58.8 56.4 56.4 70.1 54.7 ...
$ alb : num 2.6 4.14 4.14 3.48 2.54 ...
$ alkphos: num 1718 7395 7395 516 6122 ...
$ ascites: int 1 0 0 0 0 0 0 0 0 0 ...
$ bili : num 14.5 1.1 1.1 1.4 1.8 ...
$ chol : int 261 302 302 176 244 244 279 279 248 248 ...
$ edema : int 1 0 0 1 1 1 0 0 0 0 ...
$ edemarx: num 1 0 0 0.5 0.5 0.5 0 0 0 0 ...
$ hepmeg : int 1 1 1 0 1 1 1 1 1 1 ...
$ time : int 400 1487 4500 1012 1487 1925 1487 1504 1487 2503 ...
$ plate : int 190 221 221 151 183 183 136 136 -9 -9 ...
$ protime: num 12.2 10.6 10.6 12 10.3 ...
$ sex : int 1 1 1 0 1 1 1 1 1 1 ...
$ sgot : num 137.9 113.5 113.5 96.1 60.6 ...
$ spiders: int 1 1 1 0 1 1 1 1 0 0 ...
$ stage : int 4 3 3 4 4 4 3 3 3 3 ...
$ cens : int 1 0 0 1 0 1 0 0 0 1 ...
$ rx : int 1 1 1 1 1 1 2 2 2 2 ...
$ trig : int 172 88 88 55 92 92 72 72 63 63 ...
$ copper : int 156 54 54 210 64 64 143 143 50 50 ...
$ id : int 1 2 2 3 4 4 5 5 6 6 ...
$ first : int 0 1 0 0 1 0 1 0 1 0 ...
$ late : int 0 0 1 0 0 1 0 1 0 1 ...
$ t0 : int 0 0 1487 0 0 1487 0 1487 0 1487 ...
- attr(*, "datalabel")= chr ""
- attr(*, "time.stamp")= chr "14 Sep 2000 10:40"
- attr(*, "formats")= chr [1:24] "%9.0g" "%9.0g" "%9.0g" "%9.0g" ...
- attr(*, "types")= int [1:24] 102 102 102 98 102 105 98 102 98 105 ...
- attr(*, "val.labels")= chr [1:24] "" "" "" "" ...
- attr(*, "var.labels")= chr [1:24] "" "" "" "" ...
- attr(*, "version")= int 6
> all.equal(summary(sun6),summary(pc5))
[1] TRUE
> df <- read.dta("datefactor.dta")
> summary(df)
hlth159 id adate
EXCELLENT: 0 Min. : 1.00 Min. :1960-01-02
VERY GOOD: 6 1st Qu.: 8.25 1st Qu.:1960-01-09
GOOD : 8 Median :15.50 Median :1960-01-16
FAIR : 4 Mean :15.50 Mean :1960-01-16
POOR : 1 3rd Qu.:22.75 3rd Qu.:1960-01-23
NA's :11 Max. :30.00 Max. :1960-01-31
> data(esoph)
> write.dta(esoph,esophile <- tempfile())
> esoph2 <- read.dta(esophile)
> all.equal(ordered(esoph2$alcgp),esoph$alcgp)
[1] TRUE
> write.dta(esoph,esophile,convert.factors="string")
> esoph2 <- read.dta(esophile)
> all.equal(as.character(esoph$alcgp),esoph2$alcgp)
[1] TRUE
> write.dta(esoph,esophile,convert.factors="code")
> esoph2 <- read.dta(esophile)
> all.equal(as.numeric(esoph$alcgp),as.numeric(esoph2$alcgp))
[1] TRUE
>
> se <- read.dta("stata7se.dta")
> print(se)
race number
1 white 2
2 asian 5
3 hispanic 5
4 white 4
5 black 5
6 white 6
7 black 7
> v8 <- read.dta("stata8mac.dta")
> print(v8)
race number
1 white 2
2 asian 5
3 hispanic 5
4 white 4
5 black 5
6 white 6
7 black 7
>
> stata8 <- read.dta("auto8.dta",missing.type=TRUE,convert.underscore=FALSE)
> str(stata8)
'data.frame': 74 obs. of 13 variables:
$ make : chr "AMC Concord" "AMC Pacer" "AMC Spirit" "Buick Century" ...
$ price : int 4099 4749 3799 4816 7827 5788 4453 5189 10372 4082 ...
$ mpg : int 22 17 22 20 15 18 26 20 16 19 ...
$ rep78 : int 3 3 NA 3 4 3 NA 3 3 3 ...
$ headroom : num 2.5 3 3 4.5 4 4 3 2 3.5 3.5 ...
$ trunk : int 11 11 12 16 20 21 10 16 17 13 ...
$ weight : int 2930 3350 2640 3250 4080 3670 2230 3280 3880 3400 ...
$ length : int 186 173 168 196 222 218 170 200 207 200 ...
$ turn : int 40 40 35 40 43 43 34 42 43 42 ...
$ displacement: int 121 258 121 196 350 231 304 196 231 231 ...
$ gear_ratio : num 3.58 2.53 3.08 2.93 2.41 ...
$ foreign : Factor w/ 2 levels "Domestic","Foreign": 1 1 1 1 1 1 1 1 1 1 ...
$ testmiss : num NA NA NA NA NA NA NA NA NA NA ...
- attr(*, "datalabel")= chr "1978 Automobile Data"
- attr(*, "time.stamp")= chr "20 May 2003 14:39"
- attr(*, "formats")= chr [1:13] "%-18s" "%8.0gc" "%8.0g" "%8.0g" ...
- attr(*, "types")= int [1:13] 18 252 252 252 254 252 252 252 252 252 ...
- attr(*, "val.labels")= chr [1:13] "" "" "" "" ...
- attr(*, "var.labels")= chr [1:13] "Make and Model" "Price" "Mileage (mpg)" "Repair Record 1978" ...
- attr(*, "version")= int 8
- attr(*, "label.table")=List of 1
..$ origin: Named int [1:2] 0 1
.. ..- attr(*, "names")= chr [1:2] "Domestic" "Foreign"
- attr(*, "missing")=List of 13
..$ make : NULL
..$ price : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ mpg : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ rep78 : num [1:74] NA NA 0 NA NA NA 0 NA NA NA ...
..$ headroom : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ trunk : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ weight : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ length : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ turn : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ displacement: num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ gear_ratio : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ foreign : num [1:74] NA NA NA NA NA NA NA NA NA NA ...
..$ testmiss : num [1:74] 18 18 18 18 18 18 18 18 18 18 ...
>
> bq <- read.dta("MLLabelsWithNotesChar.dta")
> str(bq)
'data.frame': 0 obs. of 1 variable:
$ female: Factor w/ 2 levels "No","Yes":
- attr(*, "datalabel")= chr "datalabelBQ"
- attr(*, "time.stamp")= chr "27 Apr 2013 16:16"
- attr(*, "formats")= chr "%8.0g"
- attr(*, "types")= int 251
- attr(*, "val.labels")= chr "female_lbl_def"
- attr(*, "var.labels")= chr "Is it female"
- attr(*, "expansion.fields")=List of 11
..$ : chr [1:3] "female" "question" "Are you Female?"
..$ : chr [1:3] "_dta" "_lang_c" "default"
..$ : chr [1:3] "_dta" "_lang_v_spanish" "etiqdataBQ"
..$ : chr [1:3] "female" "_lang_l_spanish" "female_lbl_es"
..$ : chr [1:3] "female" "_lang_v_spanish" "Femenino"
..$ : chr [1:3] "_dta" "note1" "datasetNoteTxt"
..$ : chr [1:3] "_dta" "note0" "1"
..$ : chr [1:3] "female" "note2" "FemaleNote2Txt"
..$ : chr [1:3] "female" "note0" "2"
..$ : chr [1:3] "female" "note1" "FemaleNoteTxt"
..$ : chr [1:3] "_dta" "_lang_list" "default spanish"
- attr(*, "version")= int 12
- attr(*, "label.table")=List of 2
..$ female_lbl_es : Named int [1:2] 0 1
.. ..- attr(*, "names")= chr [1:2] "No" "Si"
..$ female_lbl_def: Named int [1:2] 0 1
.. ..- attr(*, "names")= chr [1:2] "No" "Yes"
> write.dta(bq, "bq.dta", version = 12)
> str(read.dta('bq.dta'))
'data.frame': 0 obs. of 1 variable:
$ female: Factor w/ 2 levels "No","Yes":
- attr(*, "datalabel")= chr "datalabelBQ"
- attr(*, "time.stamp")= chr ""
- attr(*, "formats")= chr "%9.0g"
- attr(*, "types")= int 253
- attr(*, "val.labels")= chr "female_lbl_def"
- attr(*, "var.labels")= chr "Is it female"
- attr(*, "expansion.fields")=List of 11
..$ : chr [1:3] "female" "question" "Are you Female?"
..$ : chr [1:3] "_dta" "_lang_c" "default"
..$ : chr [1:3] "_dta" "_lang_v_spanish" "etiqdataBQ"
..$ : chr [1:3] "female" "_lang_l_spanish" "female_lbl_es"
..$ : chr [1:3] "female" "_lang_v_spanish" "Femenino"
..$ : chr [1:3] "_dta" "note1" "datasetNoteTxt"
..$ : chr [1:3] "_dta" "note0" "1"
..$ : chr [1:3] "female" "note2" "FemaleNote2Txt"
..$ : chr [1:3] "female" "note0" "2"
..$ : chr [1:3] "female" "note1" "FemaleNoteTxt"
..$ : chr [1:3] "_dta" "_lang_list" "default spanish"
- attr(*, "version")= int 12
- attr(*, "label.table")=List of 2
..$ female_lbl_def: Named int [1:2] 1 2
.. ..- attr(*, "names")= chr [1:2] "No" "Yes"
..$ female_lbl_es : Named int [1:2] 0 1
.. ..- attr(*, "names")= chr [1:2] "No" "Si"
> unlink("bq.dta")
>
> ## PR#15290
> bq <- read.dta("OneVarTwoValLabels.dta")
> str(bq)
'data.frame': 0 obs. of 1 variable:
$ female: Factor w/ 2 levels "Male","Female":
- attr(*, "datalabel")= chr ""
- attr(*, "time.stamp")= chr "25 Apr 2013 21:40"
- attr(*, "formats")= chr "%9.0g"
- attr(*, "types")= int 251
- attr(*, "val.labels")= chr "fem_lbl_val_en"
- attr(*, "var.labels")= chr ""
- attr(*, "expansion.fields")=List of 3
..$ : chr [1:3] "_dta" "_lang_c" "default"
..$ : chr [1:3] "female" "_lang_l_spanish" "fem_lbl_val_es"
..$ : chr [1:3] "_dta" "_lang_list" "default spanish"
- attr(*, "version")= int 12
- attr(*, "label.table")=List of 2
..$ fem_lbl_val_es: Named int [1:2] 0 1
.. ..- attr(*, "names")= chr [1:2] "Masculino" "Femenino"
..$ fem_lbl_val_en: Named int [1:2] 0 1
.. ..- attr(*, "names")= chr [1:2] "Male" "Female"
>
> ## Dates and date-times in Stata12
> Sys.setenv(TZ = "UTC") # avoid timezone differences: cannot unset so must be last
> read.dta("xxx12.dta")
x xc xbigc xdate
1 2014-01-23 20:07:16 2014-01-23 20:07:16 2014-01-23 20:07:16 2014-01-23
2 2014-01-23 20:07:17 2014-01-23 20:07:17 2014-01-23 20:07:17 2014-01-23
3 2014-01-23 20:07:18 2014-01-23 20:07:18 2014-01-23 20:07:18 2014-01-23
4 2014-01-23 20:07:19 2014-01-23 20:07:19 2014-01-23 20:07:19 2014-01-23
5 2014-01-23 20:07:20 2014-01-23 20:07:20 2014-01-23 20:07:20 2014-01-23
6 2014-01-23 20:07:21 2014-01-23 20:07:21 2014-01-23 20:07:21 2014-01-23
7 2014-01-23 20:07:22 2014-01-23 20:07:22 2014-01-23 20:07:22 2014-01-23
8 2014-01-23 20:07:23 2014-01-23 20:07:23 2014-01-23 20:07:23 2014-01-23
9 2014-01-23 20:07:24 2014-01-23 20:07:24 2014-01-23 20:07:24 2014-01-23
10 2014-01-23 20:07:25 2014-01-23 20:07:25 2014-01-23 20:07:25 2014-01-23
>
> q()
> proc.time()
user system elapsed
0.377 0.063 0.430