dplyr for numeric_index calc