Delete function1.R