R script upload

Uploaded PS_2_Kim R script