Updated R script and txt file added