結果 : r user defined function return multiple values