Update Adaptive_Group_Sequential_Design.R