How to Change a Vector of Numbers from 1-10 to a New Scale of 1-3 Using R Positional Indexing