Update createABasicFunction.r