Added the R code for fast read in large plink files into R