Create Final_Rcode.R

heeeeyyy 
I made some changes.
please ignore previous pull request