Slight change to R Code

Change to R Code to neaten up, and remove unnecessary reference to
dataframe when using "with" command