R assignment

R assignment