R course day 1