## Not run:
# # SAS code to generate test dataset:
# # libname y SASV5XPT "test2.xpt";
# #
# # PROC FORMAT; VALUE race 1=green 2=blue 3=purple; RUN;
# # PROC FORMAT CNTLOUT=format;RUN; * Name, e.g. 'format', unimportant;
# # data test;
# # LENGTH race 3 age 4;
# # age=30; label age="Age at Beginning of Study";
# # race=2;
# # d1='3mar2002'd ;
# # dt1='3mar2002 9:31:02'dt;
# # t1='11:13:45't;
# # output;
# #
# # age=31;
# # race=4;
# # d1='3jun2002'd ;
# # dt1='3jun2002 9:42:07'dt;
# # t1='11:14:13't;
# # output;
# # format d1 mmddyy10. dt1 datetime. t1 time. race race.;
# # run;
# # data z; LENGTH x3 3 x4 4 x5 5 x6 6 x7 7 x8 8;
# # DO i=1 TO 100;
# # x3=ranuni(3);
# # x4=ranuni(5);
# # x5=ranuni(7);
# # x6=ranuni(9);
# # x7=ranuni(11);
# # x8=ranuni(13);
# # output;
# # END;
# # DROP i;
# # RUN;
# # PROC MEANS; RUN;
# # PROC COPY IN=work OUT=y;SELECT test format z;RUN; *Creates test2.xpt;
# w <- sasxport.get('test2.xpt')
# # To use an existing copy of test2.xpt available on the web:
# w <- sasxport.get('http://biostat.mc.vanderbilt.edu/wiki/pub/Main/Hmisc/test2.xpt')
#
# describe(w$test) # see labels, format names for dataset test
# # Note: if only one dataset (other than format) had been exported,
# # just do describe(w) as sasxport.get would not create a list for that
# lapply(w, describe)# see descriptive stats for both datasets
# contents(w$test) # another way to see variable attributes
# lapply(w, contents)# show contents of both datasets
# options(digits=7) # compare the following matrix with PROC MEANS output
# t(sapply(w$z, function(x)
# c(Mean=mean(x),SD=sqrt(var(x)),Min=min(x),Max=max(x))))
# ## End(Not run)
Run the code above in your browser using DataLab