結果 : r code for sample size calculation