結果 : user defined function in r programming example