First submit

Data ,R code and readme files.