Create function.R