Uploaded R Script