R : Copyright 2001, The R Development Core Team
Version 1.3.0 Under development (unstable) (2001-02-19)

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.

Type `demo()' for some demos, `help()' for on-line help, or
`help.start()' for a 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$sexptype
[1] 16 14 14 14 14 14

$SPEC$tailpad
[1] 0

$SPEC$length
[1] 40


> Alfalfa <- read.xport("Alfalfa.xpt")
> 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$sexptype
[1] 14 14

$TEST$tailpad
[1] 0

$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()