adding functions.R file
updating teste.r