10 lines
253 B
R
10 lines
253 B
R
|
library(foreign)
|
||
|
|
lookup.xport("Alfalfa.xpt")
|
||
|
|
Alfalfa <- read.xport("Alfalfa.xpt", stringsAsFactors = TRUE)
|
||
|
|
summary(Alfalfa)
|
||
|
|
## test data provided by FRohde@birchdavis.com
|
||
|
|
lookup.xport("test.xpt")
|
||
|
|
testdata <- read.xport("test.xpt")
|
||
|
|
summary(testdata)
|
||
|
|
q()
|