R assignment (broken)