Update Rfile.R

Commit A1