Modifying Data Table in R Using Nested For Loops to Replace Characters with Calculated Values