data(Alfalfa)
# go were the data is...
here <- getwd()
setwd(file.path(.path.package("SASxport"),"data"))
# Description of the file contents
lookup.xport("Alfalfa.xpt")
# Load the file contents
Alfalfa <- read.xport("Alfalfa.xpt")
head(Alfalfa)
# return home
setwd(here)
# Just for fun, plot the data
par(mfrow=c(1,2))
plot( HARV1 ~ POP, data=Alfalfa)
plot( HARV2 ~ POP, data=Alfalfa)Run the code above in your browser using DataLab