Create testFunctionB.R