Added profiling to test_of_main_function.R