fuction exercise for R programming