Create GapStatistic.R