make function

Run R Script if Needed