Create WritingFunctionsExample1.R