Create SampleCode3.r