Assignment Verision 1.1, changed whole logistic by using dplyr library, old R script not using dplyr has been renamed with appendix '_not_using_dplyr'. Both files will give similar results, though the numbers of column may be slightly different.