add functions.R
Add r files
Add r files