First Attempt at R file