R practice code.