make function

Run R Script If Needed