***********************************************************************
* This is a program that illustrates the use of PROC POWER to         *
* calculate sample size when comparing two hazard functions in a      *
* non-inferiority trial.                                              *
***********************************************************************;

proc power;
twosamplesurvival groupweights=(1 1) alpha=0.025 power=0.9 sides=1
   test=logrank curve("Placebo")=(1.01):(0.8) curve("Therapy")=(1.01):(0.75) 
   groupsurvival="Placebo"|"Therapy" accrualtime=0.01 followuptime=1 ntotal=.;
plot min=0.1 max=0.9;
title "Sample Size Calculation for Comparing Two Hazard Functions (1:1 Allocation)";
title2 "in a Non-Inferiority Trial"; 
run;