first sample function myfunction.R