Update optVertHist.R