Create function_used.R