結果 : r sample() function