adding testFunction.R