This is practice code for r