Create final2.R