#read data
# these two files were taken from the "Statistical Learning with Sparsity", 
#          Hastie, Tibshirani, Wainwright, website.

xtran = read.table("data64.txt",header=TRUE)
ddat = read.table("diabetes.txt",header=FALSE)

#standardize (is L2 standardized so the \sum x_i^2 =1)
xs = xtran
xs = scale(xs)

diabDf = data.frame(y=ddat[,11],xs)

write.csv(diabDf,file="diabetes.csv",row.names=FALSE)