More indexCalc.R - and MORE checking to do