Changes to the existing R script

Changes to the existing PS_2_Kim R script