This is first commit. R code only.