Basic R file in Progress