Rename the functions, create the function code R files and add the test.compare.R file containing a simple test.