/* for reading write.table output from R                                    */
/* library(lars);data(diabetes);cbind(diabetes$x,y=diabetes$y)->z           */
/* write.table(as.data.frame(z),file="diabetes.data1.txt",quote=F,row.names=F) */
options nodate nonumber ps=2000;
data diabetes1;
infile "K:\diabetes.rwrite1.txt" firstobs=2;
input age sex bmi map tc ldl hdl tch ltg glu y;
proc means data=diabetes1 n mean std;
proc print data=diabetes1;
run;