Intro R short course code