updated .R code files to improve loading of dataset

updated .R code files to just load first 100000 to improve loading of
dataset