https://stackoverflow.com/questions/75377963/operations-within-rows-in-r