this is my first r code