Finalized Intro to R copy