121 lines
2.5 KiB
Plaintext
121 lines
2.5 KiB
Plaintext
|
|
R Under development (unstable) (2019-07-31 r76909) -- "Unsuffered Consequences"
|
|
Copyright (C) 2019 The R Foundation for Statistical Computing
|
|
Platform: x86_64-pc-linux-gnu (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)
|
|
> lookup.xport("Alfalfa.xpt")
|
|
$SPEC
|
|
$SPEC$headpad
|
|
[1] 1360
|
|
|
|
$SPEC$type
|
|
[1] "character" "numeric" "numeric" "numeric" "numeric" "numeric"
|
|
|
|
$SPEC$width
|
|
[1] 8 8 8 8 8 8
|
|
|
|
$SPEC$index
|
|
[1] 1 2 3 4 5 6
|
|
|
|
$SPEC$position
|
|
[1] 0 8 16 24 32 40
|
|
|
|
$SPEC$name
|
|
[1] "POP" "SAMPLE" "REP" "SEEDWT" "HARV1" "HARV2"
|
|
|
|
$SPEC$label
|
|
[1] "" "" "" "" "" ""
|
|
|
|
$SPEC$format
|
|
[1] "" "" "" "" "" ""
|
|
|
|
$SPEC$sexptype
|
|
[1] 16 14 14 14 14 14
|
|
|
|
$SPEC$tailpad
|
|
[1] 0
|
|
|
|
$SPEC$length
|
|
[1] 40
|
|
|
|
|
|
> Alfalfa <- read.xport("Alfalfa.xpt", stringsAsFactors = TRUE)
|
|
> summary(Alfalfa)
|
|
POP SAMPLE REP SEEDWT HARV1
|
|
MAX:20 Min. :0.0 Min. :1.00 Min. :35.00 Min. :120.6
|
|
min:20 1st Qu.:2.0 1st Qu.:1.75 1st Qu.:47.75 1st Qu.:148.3
|
|
Median :4.5 Median :2.50 Median :59.00 Median :165.8
|
|
Mean :4.5 Mean :2.50 Mean :56.08 Mean :163.0
|
|
3rd Qu.:7.0 3rd Qu.:3.25 3rd Qu.:62.25 3rd Qu.:176.4
|
|
Max. :9.0 Max. :4.00 Max. :75.00 Max. :193.4
|
|
HARV2
|
|
Min. :129.1
|
|
1st Qu.:150.6
|
|
Median :163.2
|
|
Mean :167.1
|
|
3rd Qu.:179.6
|
|
Max. :235.3
|
|
> ## test data provided by FRohde@birchdavis.com
|
|
> lookup.xport("test.xpt")
|
|
$TEST
|
|
$TEST$headpad
|
|
[1] 800
|
|
|
|
$TEST$type
|
|
[1] "numeric" "numeric"
|
|
|
|
$TEST$width
|
|
[1] 8 8
|
|
|
|
$TEST$index
|
|
[1] 1 2
|
|
|
|
$TEST$position
|
|
[1] 0 8
|
|
|
|
$TEST$name
|
|
[1] "I" "K"
|
|
|
|
$TEST$label
|
|
[1] "" ""
|
|
|
|
$TEST$format
|
|
[1] "" ""
|
|
|
|
$TEST$sexptype
|
|
[1] 14 14
|
|
|
|
$TEST$tailpad
|
|
[1] 48
|
|
|
|
$TEST$length
|
|
[1] 12
|
|
|
|
|
|
> testdata <- read.xport("test.xpt")
|
|
> summary(testdata)
|
|
I K
|
|
Min. :1.00 Min. :1
|
|
1st Qu.:1.75 1st Qu.:1
|
|
Median :2.50 Median :2
|
|
Mean :2.50 Mean :2
|
|
3rd Qu.:3.25 3rd Qu.:3
|
|
Max. :4.00 Max. :3
|
|
> q()
|
|
> proc.time()
|
|
user system elapsed
|
|
0.107 0.024 0.121
|