edit

edited R script