Create formatData.R

R code which format the raw data and add new features