Update SampleSizeCalculation.R