typo optimal.ind <- optimal.ind.d