changed p21 bug in Design.R file; updated max iter to 100,000