Nothing
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()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.