R intro copy